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PREFACE 


INDUSTRY STANDARDS 





This manual outlines the programming rules for VS FORTRAN 
1978-level source language. It includes Full American National 
Standard FORTRAN (X3.9-1978) plus IBM extensions. 


After a brief introduction, the following subjects are discussed: 
1. The VS FORTRAN language 

2. VS FORTRAN Data 

3. VS FORTRAN Expressions 

4. VS FORTRAN Statements Cin alphabetic order) 

The appendixes contain the following additional information: 


Source Language Flagger (Includes execution-time cautions) 
VS FORTRAN-Supplied Procedures 

IBM and ANS FORTRAN Features 

Extended Error Handling Subroutines 

EBCDIC and ASCII Codes 


The VS FORTRAN Compiler and Library program product is designed 
according to the specifications of the following industry 
standards, as understood and interpreted by IBM as of May, 1982. 


The following two standards are technically equivalent. In this 
manual, references to the current standard are references to 
these two standards: 


& American National Standard Programming Language FORTRAN, ANSI 
X3.9-1978 Calso known as FORTRAN 77) 


& International Organization for Standardization IS0 1539-1980 
Programming Languages-~FORTRAN 


The bit string manipulation functions are defined in 
ANSI/ISA-S61.1. 


The following two standards are technically equivalent. In this 
ponualy Persrences to the old standard are references to these two 
standards: 


= American Standard FORTRAN, X3.9-1966 


e International Organization for Standardization IS0 R 
1539-1972 Programming Languages-FORTRAN 


Both the FORTRAN 77 and the FORTRAN 66 standard languages include 
IBM extensions. In this book references to current FORTRAN are 
references to the FORTRAN 77 standard, plus the IBM extensions 
valid with it. References to Gld FORTRAN are references to the 
FORTRAN 66 standard, plus the IBM extensions valid with it. 
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RELATED PUBLICATIONS 


The VS FORTRAN publications are designed to help develop programs 
with a minimum of wasted effort. This book, VS FORTRAN Application 


Programming: Language Reference, describes the rules for coding 
VS FORTRAN programs when using the current FORTRAN. 





VS FORTRAN PUBLICATIONS 
Other VS FORTRAN publications contain related information. 


8 VS FORTRAN Application Programming: Guide, $C26-3985, 
contains guidance information on designing, coding, 


debugging, testing, and executing VS FORTRAN programs written 
at the current FORTRAN language level. 


2 VS FORTRAN Application Programming: Library Reference, 
$C26-3989, contains detailed information about the 


execution-time library subroutines. 


e VS FORTRAN Application Programming: System Services 
Reference Supplement, $C26-3988, contains FORTRAN-Speci fic 


reference documentation. 


© VS FORTRAN Application Programming: Source-Time Reference 
Summary, SX26-3731, is a pocket-sized reference card 


containing current FORTRAN syntax and brief descriptions of 
the compiler options. 


@ IBM System/360 and System/370 FORTRAN IV Language, GC28-6515, 
contains the rules for writing VS FORTRAN programs using 


FORTRAN 66. 
@ IBM System/370 Reference Data, GX20-1850. 


The following chart shows how some of these books relate to each 
other. 


Application Programming and Operation Publications 


VS FORTRAN. 
Application Programming: 
Guide Compile 
Link 
Execute 
Debug 


FORTRAN IV VS FORTRAN VS FORTRAN VS FORTRAN 


Language Language System Services Library 
Reference Reference Reference Reference 
Supplement 


VS FORTRAN 
Reference 
Summary 
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FORTRAN IV PUBLICATIONS 


® & IBM System/360 and System/370 FORTRAN IV Language, GC28-6515 


Describes the source language available in the FORTRAN IV 
language. 


° FORTRAN Coding Form, GX28-7327 


Aids in coding fixed-form FORTRAN programs. 


FORTRAN INTERACTIVE DEBUG PUBLICATIONS 


2 FORTRAN Interactive Debug for CMS and TS0 Guide and 
Reference, S$C28-6885 


FORTRAN Interactive Debug for CMS and TSO Installation, 


SC28-6886 


FORTRAN Interactive Debug for CMS and TSO Reference Summary, 
$X28-8193 


SYSTEM AND DEVICE INFORMATION 
Specific system information and details about block size, track 
Capacity, and so on, of the various input/output devices is not 


included in this book. See the following system publications for 
this information: 


IBM DASD Publication 


Introduction to IBM Direct Access Storage Devices and 
© Organization Methods, GC20-1649 


Contains algorithms for direct files. 


CMS Systems Publications 


IBM Virtual Machine Facility/370: 
CP Command Reference for General Users, GC20-1820 
CMS User's Guide, GC20-1819 
CMS Command and Macro Reference, GC20-1818 
Terminal User's Guide, GC20-1810 


OS/VS Systems Publications 
OS/VS Linkage Editor and Loader, GC26-3813 


OS/VS Virtual Storage Access Method (VSAM) Programmer's 
Guide, GC26-3838 


OS/VS Tape Labels, GC26-3795 


MVS Publications 


OS/VS2 MVS Data Management Services Guide, GC26-3875 
OS/VS2 Access Method Services, 6C26-3841 
OS/VS2 MVS JCL, GC28-0692 





OS/VS2 Debugging Guide, GT28-0632 
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OS/VS2 TSO Terminal User's Guide, GC28-0645 





OS7VS2 TSO Command Language Reference, GC28-0646 


T50-3270 Structured Programming Facility (SPF) Program 
Reference Manual, SH20-1730 


OS/VS1 Publications 
OS/7VS1 Data Management Services Guide, GC26-3874 
OS7VS1 Access Method Services, GC26-3840 
OS/7VS1i JCL Services, GC24-5100 
OS/VS1 JCL Reference, GC24-5099 


OS/7VS1 Debugging Guide, GC24-5093 


DOS/VSE Publications 
DOS/VSE System Management Guide, G6C33-5371 
DOS/VSE Data Management Concepts, GC24-5138 


DOSZVSE Serviceability Aids and Debugging Proceduras, 
GC335-5380 


VSE/ZVSAM Programmer's Reference, $C24-5145 
Using VSE/VSAM Commands and Macros, $C24-5144 


Using the VSE/VSAM Space Management for SAM Feature, 
§$C246=-5192 





DOS/ZVSE Tape Labels, GC33-5374 
DOSZVSE DASD Labels, GC33-5375 


MVS/Extended Architecture (MVS/XA) Publications 
MVSZExtended Architecture Access Method Services Referance 


MYSZExtended Architecture JCL 


MVSZExtended Architecture Debugging Handbook 

MVS7ZExtended Architecture Data Management Servicas 
MVSZExtended Architecture Linkage Editor and Loadar 
MVS/Extended Architecture VSAM Programmer's Guida 
MVSZExtended Architecture Tape Labels 

MVS/Extended Architecture T$0 Command Language Reference with 


TSO Extensions 


Supplement for MVSZExtended Architecture with TSO-E 
Supplement for MVS/Extended Architecture without TSQ-E 
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FORMAT NOTATION 





METHCDS OF PRESENTATION 


Because methods of presentation vary from book to book, the format 
notation and method of indicating IBM extensions are outlined 
here. 


In this manual, "“must™ is to be interpreted as a requirement; 
conversely, "must not™ is to be interpreted as a prohibition. 


In describing the form of VS FORTRAN statements or constructs, the 
following conventions and symbols are used: 


° Special characters from the VS FORTRAN character set, 
uppercase letters, and uppercase words are to be written as 
shown, except where otherwise noted. 


e Lowercase letters and lowercase words indicate general 
entities for which specific entities must be substituted in 
actual statements. Once a given lowercase letter or word is 
used ina syntactic specification to represent an entity, all 
subsequent occurrences of that letter or word represent the 
same entity until that letter or word is used in a subsequent 
syntactic specification to represent a different entity. 


° Square brackets ({C ]) are used to indicate optional items. 
® An underlined word (such as name, type, list) indicates a 


variable, such as an entry point, name of a function, data 
type, or list of variables or array names. 


° An ellipsis ¢(...) indicates that the preceding optional items 
may appear one or more times in succession. 


e Blanks are used to improve readability; however, unless 
otherwise noted, they have no significance. 


The general form of each statement is enclosed in a box. For 
example: 


Syntax 





CALL name [€ (¢€ Cargl [,arg2] [,arg3] 


The following examples are among those allowed: 


CALL name 

CALL name () 

CALL name Carg) 

CALL name (arg, arg) 

CALL name (arg, arg, arg) 

CALL name (arg, arg, arg, arg) 




















When an actual statement is written, specific entities are 
substituted for name and each arg. For example: 


CALL ABCD (X,1.0) 
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DOCUMENTATION OF IBM EXTENSIONS @ 


In addition to the statements available in FORTRAN 77, IBM 
provides "extensions"”™ to the language. These extensions are shown 
in the following ways. 


——— TON CAEN ee 


This paragraph shows how IBM language extensions in text are 
documented. 


—____- END. OF IBM EXTENSION ———————_—_——_—_—_—__—_—_—_" 


The following example shows how boxes indicate IBM extensions. 


Cr 


Integer variables 


Complex variable 





The example below shows how IBM extensions are documented within a 
table. The boxes around certain types and lengths of the result of 
logical operations indicate IBM extensions. 6 





Operand 
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-_ SUMMARY OF AMENDMENTS 


RELEASE 2.0, SEPTEMBER 1982 


MVS/EXTENDED ARCHITECTURE (MVS/XA) 


DYNAMIC COMMON 


VS FORTRAN Release 2 can run on MVS/XA. The compiler executes in 
24-bit mode, but creates object modules capable of executing in 
31-bit mode and marked ANY/ANY for linkage editor processing. 
These compiled object programs can execute in either 24-bit or 
31-bit mode. 


The DC compiler option defines the names of common blocks of 
storage to be allocated at execution time. This allows 
specification of very large common blocks of storage that can 
reside in the additional storage space available through MVS/XA. 


BIT STRING MANIPULATION 





Integer data can be pictured as an ordered set of bits. Functions 
are provided for interrogation and manipulation ona bit-by-bit 
basis. 


HOLLERITH/LITERAL/HEXADECIMAL DATA 


The compiler has been extended partially to allow nonstandard 
initialization. Hexadecimal constants may be used to initialize 
all data types. Initialization with Hollerith and literal 
constants is allowed, but an error message will be issued. This 
extension applies only to LANGLVL(77). 


ALTERNATIVE MATHEMATICAL LIBRARY SUBROUTINES 


FORMATTED TRACEBACK 


SERVICE CHANGES 





Alternative library subroutines provide greater accuracy to VS 
FORTRAN mathematical computations. and functions are provided for 
interrogation and manipulation Character variables and arrays can 
be initialized 


Debug information is available in sentence form. 


The following intrinsic function charts have been added: 


Logarithmic and Exponential Functions 
Trigonometric Functions 

Hyperbolic Functions 

Miscellaneous Mathematical Functions 
Conversion and Maximum/Minimum Functions 
Character Manipulation Functions 

Bit Manipulation Functions 

Generic Names for Intrinsic Functions 
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RELEASE 1.1, JANUARY 1982 @ 


MISCELLANEOUS CHANGES 


RELEASE 1, JUNE 1981 


MISCELLANEOUS CHANGES 


Function subroutine charts have been added to Appendix B. 


The IBM extension abbreviations for .TRUE. and .FALSE. have 
been clarified. 


Several examples have been corrected. 


The syntax designations in the GO TO and logical IF statements 
have been corrected. 


Adjustments have been made to the ERRTRA subroutine 
description, including the Option Table Default Values. 


The index has been expanded. 


Unsigned arithmetic constants are explained. 
The IBM extension to the DATA statement is rewritten. 
The EJECT statement should not be continued. 


A logical IF statement containing stn may be labeled. 
The INCLUDE statement may not be continued. ® 





A parenthesis has been added to the PARAMETER statement 
syntax. 


MAIN# has been changed to MAIN ir the PROGRAM statement. 


ID-=id is a required parameter in the WAIT statement. 
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INTRODUCTION 


LANGUAGE 


COMPILER 





IBM VS FORTRAN consists of a language, a compiler, and an 
execution-time library of subprograms. 


The VS FORTRAN language consists of a set of characters, 
conventions, and rules that are used to convey information to the 
compiler. The basis of the VS FORTRAN language is a statement 
containing combinations of element names, operators, constants, 
and words (keywords) whose meaning is predefined to the compiler. 


The VS FORTRAN language is best suited to applications that 
involve mathematical computations and other manipulation of 
arithmetic data. 


In a process called compilation, a program called the VS FORTRAN 
compiler analyzes the source program statements and translates 
them into a machine language program called the object program 
that can be combined with library routines to form a program 
suitable for execution. In addition, when the VS FORTRAN compiler 
detects errors in the source program, it produces appropriate 
diagnostic messages. 


The VS FORTRAN compiler operates under control of an operating 
system that provides it with input, output, and other services. 
Object programs generated by the VS FORTRAN compiler also operate 
under operating system control and depend on it for similar 
services. 


EXECUTION-TIME LIBRARY 


VALID AND INVALID VS 


The VS FORTRAN execution-time library consists of subroutines and 
functions supplied as part of the product. For complete 
information on the library, see VS FORTRAN Application 
Programming: Library Reference. For a brief description of the 
intrinsic functions and source subroutines to which the user may 
refer directly in VS FORTRAN statements, see "Appendix B. 
FORTRAN-Supplied Functions” on page 207. For a discussion of 
extended error handling subroutines, see "Appendix D. Extended 
Error Handling Subroutines” on page 229. 


Subroutines and functions to furnish any commonly used code 
sequences can be compiled and added to an execution-time library 
by the user. When written in VS FORTRAN, these can be structured 
as function, subroutine, or block data subprograms. Other source 
languages can be used if the subroutines are accessible by VS 
FORTRAN calls. User subroutines may reside directly in the 
supplied library data set or ina private data set called at load 
or link-edit time. 


FORTRAN PROGRAMS 


This manual defines the rules (that is, the syntax, semantics, and 
restrictions) applicable for writing valid VS FORTRAN programs 
either for the 1978 Standard or for the 1978 Standard plus IBM 
extensions. Most violations of the VS FORTRAN language rules are 
diagnosed by the compiler; however, some syntactic and semantic 
combinations are not diagnosed, some because they are detectable 
only at execution time, others for performance reasons. VS 
FORTRAN programs that contain these undiagnosed combinations are 
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invalid VS FORTRAN programs, whether or not they execute as 


expected. © 
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VS FORTRAN LANGUAGE 








A VS FORTRAN program is made up of three basic elements: 


Data Consists of constants, variables, and arrays. See 
"VS FORTRAN Data” on page 10. 


Expressions Executable sets of arithmetic, character, logical, 
or relational data. See "VS FORTRAN Expressions” on 
page 25. 


Statements Combinations of data and expressions. See "VS 
FORTRAN Statement Descriptions” on page 45. 


LANGUAGE DEFINITIONS 


Some of the terms used in the discussion of the VS FORTRAN 
programming language are defined as follows: 


Main program. A program unit, required for execution, that can 
call other program units but cannot be called by them. A main 
program does not have a FUNCTION, SUBROUTINE, or BLOCK DATA 
statement as its first statement. The main program is the first to 
receive control at execution time. 


Subprogram. A program unit that is invoked by another program 
unit in the same program. In FORTRAN, a subprogram has a FUNCTION, 
SUBROUTINE, or BLOCK DATA statement as its first statement. 


or more points in one or more computer programs, and that usually 
iS given one or more input parameters and returns one or more 
output parameters. A procedure consists of subroutines, function 
subprograms, and intrinsic functions. 


@ Procedure. A sequenced set of statements that may be used at one 


Intrinsic function. A function, supplied by VS FORTRAN, that 
performs mathematical or character operations. (See "INTRINSIC 
Statement” on page 133.) 


External procedure. A subroutine or function subprogram written 
in FORTRAN. 


Executable program. A program that can be executed asa 
self-contained procedure. [t consists of a main program and, 
optionally, one or more subprograms or non-FORTRAN-defined 
external procedures, or both. 


Executable statement. A statement that calculates, tests, or 
alters the flow of control. 


Nonexecutable statement. A statement that describes the 
characteristics of the program unit, of data, of editing 
information, or of statement functions, but does not cause an 
action to be taken by the program. 


Preconnected file. A unit or file that was defined at 
installation time. However, a preconnected file does not exist 
for a program if the file is not defined by a FILEDEF command or 
by job control statements. 


Program unit. A sequence of statements constituting a main 
program or subprogram. 


Additional definitions can be found in the “Glossary” on page 258. 





VS FORTRAN Language 3 








LANGUAGE SYNTAX 


For the compiler to understand instructions, certain syntax rules © 
must be carefully adhered to when entering the following items. 
Each of these items is discussed more fully following the list. 


Source language statements 
Source statement characters 
Names 

Statement numbers 

Keywords 


SOURCE LANGUAGE STATEMENTS 
VS FORTRAN accepts source input in either of two formats: 


e Fixed-form input format: Fixed-length 80-byte records. 


eters atta ecenereemeteeierrere ios SUERTE Gey Ee k-ck ik Re een re terior eet remeron serene 


6 Free-form input format: Fixed-length records (with a 
maximum length of 1320 bytes). This frees the programmer 
from card column restrictions and is useful for terminal 
input. 


L____________- END OF IBM EXTENSION ———————————_____ 


A program unit must be written in either fixed form or free 
form—not both. 


Fixed-Form Source Statements 


The statements of a VS FORTRAN source program can be written ona 
standard IBM FORTRAN Coding Form, GX28-7327. Each line on the 
coding form 1s 80 characters long and is equivalent to one 
80-column card Cor input line on a terminal). 





a Statement number 


The statement number consists of from 1 to 5 decimal digits. 
It must not be zero. Blanks and leading zeros ina statement 
number are ignored. The values of the statement numbers do not 
affect the order in which the statements are executed. The 
same statement number must not be given to more than one 
statement in a program unit. 


® Initial line 


VS FORTRAN statements are written within columns 7 through 
72. The first line of a statement may have a number in columns 
1 through 5 and must have a blank or zero in column 6. 


® Comments 


Comments to explain the program may be written in columns 2 
through 72 if the letter C or an asterisk (*) is placed in 
column 1. The VS FORTRAN compiler does not process comments 
other than to print them as part of the source program 
listing. Comments may appear anywhere in the program before 
the END statement. Blank lines can appear anywhere in the 
program and are processed as comments. 


® Continuation Line 


A VS FORTRAN statement that cannot be completed on one line 
may be continued onto as many as 19 additional lines. A 
continuation line has any character other than a blank or zero 
in column 6. The statement is then continued within columns 7 
through 72. 





Comments can appear between continuation Lines. 
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ans TR EXTENSOR 





VS FORTRAN allows columns 1 through 5 in a continuation line 
to contain any characters, but they are ignored. 


L_____ END OF IBM EXTENSION —————————". 


8 Identification 


Columns 73 through 80 of any VS FORTRAN line are not 
significant to the compiler and may, therefore, be used for 
identification, sequencing, or any other purpose. 


As many blanks as desired may be written in a statement or comment 
to improve its readability. They are ignored by the compiler. 
However, blanks that are inserted in literal or character data are 
retained and treated as blanks within the data. 


Figure 1 illustrates fixed-form source statements. 





Column: 1 67 


C SAMPLE TEXT 


10 D=010.5 
GO TO 56 
150 A=BtCX(Dt+EXXF+ 
1G+tH-2.*(GtP)) 
C=3. 


Figure 1. Example of Fixed-Form Source Statements 


eer TE EATEN LON See 


Free-Form Source Statements 


The following rules govern free-form input format (free-form 
source): 


® Statement number 


The initial line may contain, as the first nonblank 
character of that line, a statement number consisting of 
from one to five decimal digits. Blanks and leading zeros in 
a statement number are ignored. A blank need not separate a 
statement number from the first nonblank character that 
follows the statement number. 


6 Initial line 


An initial line is the first Line of the statement and may 
start in any position on a new line. 


e Comments 
A comment line is a line that does not follow a continued 
line and that has a quotation mark (") in the first 


character position (column 1). Blank lines are not allowed 
© as comment lines. A comment Line cannot be continued. 
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6 Continued line 


A line of a statement to be continued is indicated by 
terminating the line with a hyphen or minus sign (-). A 
comment line cannot be continued. 


e Preserving a minus sign 


If the last character in the line is a hyphen (minus sign), 

it is assumed to indicate continuation and is discarded. If 
the last two characters ina line are hyphens, only the last 
one is taken as a continuation character; the preceding one 
is preserved as a minus sign. 


® Continuation Line 


A continuation line is a line following a continued line. It 
may start in any position. Up to 19 continuation lines are 
permitted ina single statement. 


% Maximum statement Length 


The maximum length of a free-form source statement is 1320 
characters, excluding the statement continuation character 
and the statement number. Blank characters are counted in 
the total number of characters. 


Any blank characters after the continuation character are 
not counted. 


Columns 73 through 80 (which may be used as identification 
in fixed-form source statements) are considered part of the 
input source in free form. Any characters in these columns 
are considered part of the VS FORTRAN statement. 


Figure 2 illustrates free-form source statements. 


Column: 1 7 


WSAMPLE TEXT 


10D=010.5 

GO TO 56 

150 A=BtCX(Dt+EXXF+—- 
GtH-2 .XCGtP J:) 

C=3. 


Figure 2. Example of Free-Form Source Statements 


END OF TBM EXTENSION ee 


SOURCE STATEMENT CHARACTERS 


The characters listed in Figure 3 on page 7 constitute the set of 
characters acceptable ina VS FORTRAN program. 


A special character may be an operator Cor part of an operator), 


part of a constant, or have some other special meaning. The 
interpretation is implied by the context. 
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correct collating sequence. (The complete collating sequence can 


The special characters shown in Figure 3 are listed in their 
Yd] be found in "Appendix E. EBCDIC and ASCII Codes” on page 252.) 


[speciai characters | letters | visite 


blank 

period 

left parenthesis 
plus sign 
currency sign 
asterisk 

right parenthesis 
minus sign 

slash 

comma 

colon 

apostrophe 

equal sign 


WOONAUHDWNE © 


C 
+ 
$ 
% 
) 
/ 


ZRIrACcHnTOMmoowvr 


| | N<x<KE<CHAMNS VO 


quotation mark 





Figure 3. Source Statement Characters 











NAMES 
Names (referred to as "symbolic names” in old FORTRAN 
publications) can be assigned to the elements of a program unit. 
Definition 
Name—A string of 1 through 6 letters (A,B,...,2Z) or digits 
(0,1,...,9)3, the first of which must be a letter. 
Serres TEM EACH: Se 
With this compiler, the currency symbol ($) is treated as 
a letter when used in a name. Therefore, the currency 
symbol ($) can be used as the first character in a name. 
L______ END OF IBM EXTENSION aaa 
Names can be used to identify the following items in a program 
unit: 
% An array and the elements of that array (see "Array Elements” 
on page 20) 
° A variable (see "Variables” on page 17) 
® A constant (See "PARAMETER Statement” on page 141) 
® A main program (see "PROGRAM Statement” on page 144) 
8 A statement function (see "Statement Function Statement” on 
page 172) 
® An intrinsic function (see "Appendix C. IBM and ANS FORTRAN 
Features” on page 222) 
6 e A function subprogram (see "FUNCTION Statement” on page 114) 
6 A subroutine subprogram (see "SUBROUTINE Statement” on page 
176) 
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9 oF aa data subprogram (see "BLOCK DATA Statement” on page ) 


5 A common-block (see "COMMON Statement” on page 62) 


e An external user-supplied subprogram that cannot be 
classified by its usage in that program unit as either a 
subroutine or function subprogram name (see "EXTERNAL 
Statement” on page 90) 


® A NAMELIST (Csee "READ Statement with NAMELIST™ on page 165 and 
"WRITE Statement with NAMELIST"™ on page 201) 
A name that identifies a constant, variable, array, external 
function, or statement function also identifies its data type. 
The name may be specified in a specification statement (see 
"Specification Statements” on page 43). If the name does not 
appear in sucha statement, the type is implied by the first 
letter of the name. A first letter of I through N implies integer 
type, and any other letter Cor the currency symbol) implies real 
type, unless an IMPLICIT statement is used to change the default 
type. 


Names are either global or local. 
° Classes of global names: 

— Common block 

= External function 

= Subroutine 

_ Main program 


“= Block data subprogram 





e Classes of local names: 
= Array 
— Variable 
_ Constant 
_ Statement function 
“= Intrinsic function 
= Dummy procedure 


Names must be unique within a class in a program unit and can 
identify elements of only one class except in the following 
situations: 


® A common-block name can also be an array, variable, or 
statement function name in a program unit. 


6 A function subprogram name must also be a variable name in the 
function subprogram. 


The name of a main program, subroutine, common-block, NAMELIST, 
or block data subprogram has no type. A generic function name has 
no predetermined type; it assumes a type dependent upon the type 
of its argument(s). 


Once a name 15 used as a main program name, a function subprogram 
name, a subroutine subprogram name, a block data subprogram name, 
a common-block name, or an external procedure name in any unit of 
an executable program, no other program unit of that executable 
program can use that name to identify an entity of these classes 
in any other way. 





8 VS FORTRAN Language Reference 





STATEMENT NUMBERS 


KEYWORDS 





Statement numbers identify statements in a VS FORTRAN program. 


A statement number is a sequence of from one to five digits, one 
of which must be nonzero. It can be written in either fixed form 
or free form. See "Statement Numbers" on page 174. 


Keywords identify VS FORTRAN-supplied procedures Cintrinsic 
functions) that can be used as part of any program. These 
procedures are mathematical functions and service subroutines 
that are supplied to save programmers the time it would take to 
write them every time that particular sequence of statements is 
needed ina program. See "Appendix C. IBM and ANS FORTRAN 
Features” on page 222. 


A keyword is a specified sequence of characters. Whether a 
particular sequence of characters identifies a keyword or a name 
is implied by context. There is no sequence of characters that is 
reserved in all contexts. 


VS FORTRAN Language 














VS FORTRAN DATA 


Data is a formal representation of facts, concepts, or 
instructions. VS FORTRAN manipulates three general kinds of data: 


8 Constants 
® Variables 
® Arrays 


Note: These are not to be confused with data types. Data types 
correspond to the the five types of variables, as discussed under 
"Variable Types and Lengths” on page 18. 


CONSTANTS 


A constant is a fixed, unvarying quantity. There are several 
classes of constants: 


® Arithmetic constants specify decimal values: 
Integer 
Real 
Complex 


e Logical constants specify a logical value as "true”™ or 
"false.™ There are two logical constants: 


KOE. 
-FALSEs 





o Character constants are a string of alphameric and/or special 
characters enclosed in apostrophes. 


° Hollerith constants are used only in FORMAT statements. 


———_—_  —————_ IBM EXTENSION ——_—— 


e Hexadecimal constants are used only as data initialization 
values of arithmetic or logical variables. 


Lm END OF IBM EXTENSION —————— 


The PARAMETER statement allows a constant to be given a name. (See 
"PARAMETER Statement” on page 141.) 


ARITHMETIC CONSTANTS 


Arithmetic constants fall into three categories: integer, real, 
and complex. 


An unsigned constant is a constant with no leading sign. A signed 
constant is a constant with a leading plus or minus sign. An 
optionally signed constant is a constant that may be either signed 
or unsigned. Only integer and real constants may be optionally 
signed. 
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Integer Constants 


Definition 





Integer Constant—A string of decimal digits containing no 
decimal point and expressing a whole number. It occupies 4 
bytes of storage. 


Maximum Magnitude: 2 147 483 647 (that is, 2°%?-1). 


An integer constant may be positive, zero, or negative. If 
unsigned and nonzero, it is assumed to be positive. CA zero may be 
written with a preceding sign with no effect on the value.) Its 
magnitude must not be greater than the maximum and it must not 
contain embedded commas. 
Valid Integer Constants: 

0 

91 

ivs 

-2 147 483 647 


Invalid Integer Constants: 


2? Contains a decimal point. 

3 145 903 612 Exceeds the maximum magnitude. 

5,396 Contains an embedded comma. 
© -2 147 483 648 Exceeds the maximum magnitude, 


even though it fits into 4 bytes. 


VS FORTRAN Data Li 








Real Constants 


12 


Definition _ 


Real Constant—A string of decimal digits that expresses a 
real number. It can have one of three forms: a basic real 
constant, a basic real constant followed by a real exponent, 
or an integer constant followed by a real exponent. 


A basic real constant is a string of digits with a decimal 
point. It is used to approximate the value of the constant. 


The storage requirement Clength) of a real constant can also 
be explicitly specified by appending an exponent to a basic 
real constant or an integer constant. The standard exponents 
consist of the letters E and D. 


ee ee eer LEM ACERS LO 
This compiler also allows the letter @ as an exponent. 


L_ END OF IBM EXTENSION —————— 


An exponent is followed by a signed or unsigned 1- or 
2-digit integer constant. The letter E specifies a constant 
of length 4; the letter D specifies a constant of length 8. 


a ten Ce 
The letter @ specifies a constant of length 16. 
Ln END OF IBM EXTENSION ——————— 


Magni tude: 0 or 16-°5 Capproximately 10-7°) 
through 16°* Capproximately 1075) 


Precision: (Four bytes) 6 hexadecimal digits 
Capproximately 6 decimal digits) 





CEight bytes) 14¢ hexadecimal digits 
Capproximately 15 decimal digits) 


ace ee SBE Ae ee en 


(Sixteen bytes) 28 hexadecimal digits 
Capproximately 32 decimal digits) 


L________ END OF IBM EXTENSION $$ _______—_ 


A real constant may be positive, zero, or negative Cif unsigned 
and nonzero, it is assumed to be positive) and must be within the 
allowable range. It may not contain embedded commas. A zero may be 
written with a preceding sign with no effect on the value. The 
decimal exponent permits the expression of a real constant as the 
product of a basic real constant or integer constant and 10 raised 
to a desired power. 


VS FORTRAN Language Reference 

















Valid Real Constants (Four Bytes): 


+0. 

=999. 9797 

7.0Et0 

9f61,25EF4 

f 32 

7 aBES 

7.0E+03 

1070 
21.98753829457168 


That is, 7.0 x 10° = 7.0 
That is, 9761.25 x 10! = 97612.5 


That is, 7.0 x 10% = 7000.0 


That is, 7.0 x 10-% = 0.007 


Note: This is a valid real constant, but 
it cannot be accommodated in four bytes. 
It will be accepted and truncated. 


Valid Real Constants (Eight Bytes): 


1234567890123456.D-73 Equivalent to .1234567890123456x10-5? 


7.9005 
7.9D+03 
7.38D*3 
7.9D0 
7D03 


That is, 7.9 x 10% = 7900.0 


That is, 7.9 x 10° 2 
That is, 7.0 x 10% = 7000.0 


lemma Se I a 


Valid Real Constants (Sixteen Bytes): 
~-254523453456456734565678Q9t43 


5.901908 


_—__________ END OF IBM EXTENSION —————_—_—___" 


Invalid Real Constants: 


1 


$2471.14 


L.£ 


L.cEtilts 


La de Ss 


21 . dD 99 


Missing a decimal point or a 
decimal exponent. 


Embedded comma. 

Missing a l~- or 2-digit integer constant 
following the E. It is not intepreted 
as 1.0 x 10°. 


Too many digits in the exponent. 


Magnitude outside the allowable range, 
that is, 23.5 x 10°7316°?. 


Magnitude outside the allowable range, 
that is, 21.3 x 10-%%<16-6&5, 


Le ER oN 


88 .63215748Q123 


Too many digits in the exponent 


_—_——____________ END OF IBM EXTENSION ————————, 
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Complex Constants 


Definition — 





Complex Constant—An ordered pair of signed or unsigned 
integer or real constants separated by a comma and enclosed 
in parentheses. The first constant in a complex constant 


represents the real part of the complex number; the second 
represents the imaginary part of the complex number. 


The real or integer constants in a complex constant may be 
positive, zero, or negative and must be within the allowable 
range. CIf unsigned and nonzero, they are assumed to be positive.) 
A zero may be written with a preceding sign, with no effect on the 
value. If both constants are of type integer, however, then both 
are converted to type real of length 4 bytes. 


rere rece LT SS 


If the constants of the ordered pair representing the complex 
constant differ in precision, the constant of lower precision 
is converted to a constant of the higher precision. 


For example, if one constant is real and the other is double 
precision, real is converted to double precision. 


If the constants differ in type, the integer constant is 
converted to a real constant of the same precision as the 
original real constant. 


For example, if one constant is integer and the other is 
double precision, the integer constant is converted to a 
double precision constant. 





aera END OF LOM EXTENSION 


Valid Complex Constants (i = square root of -1): 
C3271, 86) Has the value 3.- 1.8613 


both parts are real 
C4 bytes long). 


———————eeeeeeeennn TEM ESS Aes 
(-5.0E+03, .16D+02) Has the value -5000.+16.01; 
both parts are double 
precision. 
€4.7D+2,1.973614D4%) Has the value 470.+19736.14i1. 
C47D+2,38D+3) Has the value 4700.+38000.1. 
C(1234¢.345456567678Q959,-1.0Q-5) 


(4596,6E4¢5) Both parts are real (16 bytes 
long.) 


L____ END OF IBM EXTENSION ————————— 
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LOGICAL CONSTANTS 


CHARACTER CONSTANTS 





Invalid Complex Constants: 


CAs 3.73 Real part is not a constant. 


i TEM ea ey 


(.0009Q-1,7643.Q9+1199) Too many digits in the exponent 
of the imaginary part. 


(49.76, .015D+92) Magnitude of imaginary part is 
outside of allowable range. 


L_____ END OF IBM EXTENSION ——————————_ 


Definition 


Logical Constant—A constant that can have a logical value 
of either true or false. 


There are two logical constants: 


. TRUE. 
+ PALSE. 


The words TRUE and FALSE must be preceded and followed by 
periods. Each occupies 4 bytes. 


ees TRY EXTENSION, lI 
The abbreviations T and F (without the periods) may be used for 

. TRUE. and .FALSE., respectively, only for the initialization 

of logical variables or logical arrays in the DATA statement and 
in the explicit type statement. For use as input/output data, 

see "L Format Code™ under "FORMAT Statement." 


——— nes END OF IBM EXTENSION ————— 


The logical constant .TRUE. or .FALSE., when assigned to a logical 
variable, specifies that the value of the logical variable is true 
or false, respectively. (See "Logical Expressions” on page 35.) 


Definition 





Character Constant—A string of any characters capable of 
representation in the processor. The string must be enclosed 


in apostrophes. 


The delimiting apostrophes are not part of the data represented by 
the constant. An apostrophe within the character data is 
represented by two consecutive apostrophes with no intervening 
blanks. In a character constant, blanks embedded between the 
delimiting apostrophes are significant. The length of a character 
constant must be greater than zero. 


Each character requires one byte of storage. 


A character constant may be used as a data initialization value, 
or in any of the following: 


6 A character expression 


© An assignment statement 
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e The argument list of a CALL statement or function reference 
° An input or output statement © 
e A FORMAT statement 

° A PARAMETER statement 

° A PAUSE or STOP statement 


Valid Character Constants: Length: 
DATA’ 4 
"X-COORDINATE Y-COORDINATE Z-COORDINATE' 44 
"3.14! 4 
'DON''T® 5 


HOLLERITH CONSTANTS 


Definition 





Hollerith Constant—A string of any characters capable of 
representation in the processor and preceded by wH, where w 


is the number of characters in the string. 


Each character requires one byte of storage. 

Hollerith constants can be used only in FORMAT statements. 

Valid Hollerith Constants: rd 
24H INPUT/OUTPUT AREA NO. 2 





6H DON'T 
SS Oe LCN On or 


HEXADECIMAL CONSTANTS 


Definition 





Hexadecimal Constant—The character Z followed by two or 
more hexadecimal numbers formed from the set of characters 0 


through 9 and A through F. 


A hexadecimal constant may be used as a data initialization 
value for any type of variable or array. 


One byte contains 2 hexadecimal digits. If a constant is 
specified as an odd number of digits, a leading hexadecimal zero 
is added on the left to fill the byte. The internal binary form 
of each hexadecimal digit is as follows: 


0—0000 4—0100 8—1000 C1100 
i900 1 a UL 01 9-—1001 DLL 01 
2—0010 60110 A—1010 E—LasG 
a--U011 7—Uiti D—LULt Pei 224 
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VARTABLES 


VARIABLE NAMES 





Valid Hexadecimal Constants: 
ZiC49A2F1 represents the bit string: 
00011100010010011010001011110001 
ZBADFADE represents the bit string: 
00001011101011011111101011011110 
where the first 4 zero bits are implied because an odd number of 
hexadecimal digits is written. 
The maximum number of digits allowed in a hexadecimal constant 
depends upon the length specification of the variable being 
initialized (see "Variable Types and Lengths” on page 18). The 


following list shows the maximum number of digits for each 
length specification: 


Length Maximum Number of 
of Variable Hexadecimal Digits 
16 32 
8 16 
4 8 
2 4 
1 2 


If the number of digits is greater than the maximum, the excess 
leftmost hexadecimal digits are truncated; if the number of 
digits is less than the maximum, hexadecimal zeros are supplied 
on the left. 


Lrecmentiinernneenonnomies ENT OF IBM EXTENSION ———————_————" 


A VS FORTRAN variable is a data item, identified by a name, that 
occupies a storage area, except possibly in situations involving 
error or interruption handling where normal program flow is 
asynchronously interrupted. The value represented by the name is 
always the current value stored in the area. 


Before a variable has been assigned a value, its content is 
undefined, and the variable should not be referred to except to 


assign it a value. If a variable has not been assigned a value, it 
does not have a predictable value. 


VS FORTRAN variable names must follow the rules governing element 
names. (See "Names™ on page 7.) The use of meaningful variable 
names can serve as an aid in documenting a program. 
Valid Variable Names: 
B2925 
RATE 
ee ee es ee ea eee 
SVAR 


——$———— ee END OF TBM EXT ENS LO 
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Invalid Variable Names: 





B292704 Contains more than six characters. 
GARRAY First character is not alphabetic. 
SOLsh Contains a special character. 


VARIABLE TYPES AND LENGTHS 


18 


The type of a variable corresponds to the type of data the 
variable represents. (See Figure 4.) Thus, an integer variable 
must represent integer data, a real variable must represent real 
data, and so on. There is no variable type associated with 
hexadecimal data; this type of data is identified by a name of one 
of the other types. There is no variable type associated with 
statement numbers; integer variables that contain the statement 
number of an executable statement or a FORMAT statement are not 
considered to contain an integer variable. (See "ASSIGN 
Statement™ on page 46.) 


For every type of variable data, there is a corresponding length 


specification that determines the number of bytes that are 
reserved. 


er Et ERO LU 
Optional length specification is an IBM extension. 


END OF IBM EXTENSION ——————— 


Figure 4 shows each data type with its associated storage length 
and standard length. 





Storage Length Standard Length (Default) 


Integer 


fro 


Double 
Precision 


omen 
jtosicat 
| oaractor 


Figure 4. Data Type and Storage Length 
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A programmer may declare the type of variable by using the 
following: 





@ Explicit specification statements 
# IMPLICIT statement 
e Predefined specification contained in the VS FORTRAN language 


An explicit specification statement overrides an IMPLICIT 
statement, which, in turn, overrides the predefined 
specification. The optional length specification of a variable 
may be declared only by the IMPLICIT or explicit specification 
statements. If, in these statements, no length specification is 
stated, the default length is assumed. INTEGER, REAL, DOUBLE 
PRECISION, COMPLEX, and CHARACTER are used to specify the length 
and type in these statements. 


jp sO EXTENSION —-——- - 


VS FORTRAN accepts INTEGER*2 to indicate 2 bytes and INTEGER*4 
as an alternative to INTEGER to indicate 4 bytes; REAL*4 as an 
alternative to REAL to indicate 4 bytes; REAL*8 as an 
alternative to DOUBLE PRECISION to indicate 8 bytes; REAL*16 to 
indicate 16 bytes; LOGICAL¥1 to indicate 1 byte, and LOGICAL*4 
as an alternative to LOGICAL to indicate 4 bytes. 


———— en en OF Le eels 


Type Declaration by the Predefined Specification 


The predefined specification is a convention used to specify 
variables as integer or real as follows: 


3 If the first character of the variable name is I» J, K, L» M, 
or N, the variable is integer of length 4. 


e If the first character of the variable name is any other 
alphabetic character, the variable is real of Length +4. 


ee eee TE ER 


e If the first character of the variable name is a currency 
symbol ($), the variable is real of length 4. 


mens END OF IBM EXTENSION ————————___—_—_—— 


This convention is the traditional FORTRAN method of specifying 
the type of a variable as either integer or real. Unless otherwise 
noted, it is presumed in the examples in this publication that 
this specification applies. Variables defined with this 
convention are of standard (default) length. 


Type Declaration by the IMPLICIT Statement 


The IMPLICIT statement allows a programmer to specify the type of 
variables in much the same way as was specified by the predefined 
convention. That is, the type is determined by the first character 
of the variable name. However, by using the IMPLICIT statement, 
the programmer has the option of specifying which initial 
characters designate a particular variable type. The IMPLICIT 
statement can be used to specify all types of variables—integer, 
Sloe el etal logical, and character—and to indicate storage 
ength. 


The IMPLICIT statement overrides the variable type as determined 
by the predefined convention. 


©} The IMPLICIT statement is presented in greater detail in 
"IMPLICIT Type Statement" on page 125. 
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Type Declaration by Explicit Specification Statements 


ARRAY ELENENTS 


SUBSCRIPTS 





Explicit specification statements differ from the first two ways © 
of specifying the type of a variable in that an explicit 

specification statement declares the type of a particular 

variable by its name rather than a group of variable names 

beginning with a particular letter, as specified in Figure 3 on 

page 7. Explicit type statements override IMPLICIT statements and 

the predefined specifications. 


The explicit specification statements are discussed in greater 
detail in "Explicit Type Statement™ on page 86. 


An array is an ordered and structured sequence of data items, 
stored as multidimensional vectors of from one to seven 
dimensions. The data items that make up the array are called array 
elements. A particular element in the array is identified by the 
array name and its position in the array (for example, first 
element, third element, seventh element, and so on). (See "Names" 
on page 7.) All elements of an array have the same type and 
length. 


To refer to any element in an array, the array name plusa 
parenthesized subscript must be used. In particular, the array 
name alone does not represent the first element except in an 
EQUIVALENCE statement. 


Before an array element has been assigned a value, its contents is 
undefined, and the array element should not be referred to before 
assigning it a value. 





A subscript is a quantity Cor a set of subscript expressions © 
separated by commas) that is associated with an array name to 

identify a particular element of the array. The number of 

subscript quantities in any subscript must be the same as the 

number of dimensions of the array with whose name the subscript is 
associated. A subscript is enclosed in parentheses and 15 written 
immediately after the array name. A maximum of seven subscript 
expressions can appear ina subscript. 


The following rules apply to the construction of subscripts. (See 
"VS FORTRAN Expressions" on page 25 for additional information 
and restrictions.) 


1. Subscript expressions may contain arithmetic expressions that 
use any of the arithmetic operators: t+, -, *, #7, 


2. Subscript expressions may contain function references that do 
not change any other value in the same statement. 


3. Subscript expressions may contain array elements. 


pa ewan TEN SALE ee 


4. Mixed-mode expressions Cinteger and real only) within a 
subscript are evaluated according to normal FORTRAN rules. 
If the evaluated expression is real, it is converted to 
integer by truncation. 


L_____. END OF IBM EXTENSION ———————_———__ 


5. The evaluated result of a subscript expression must always be 
greater than or equal to the corresponding lower dimension 
bound and must not exceed the corresponding upper dimension 
bound (see "Size and Type Declaration of an Array" on page 21 ©} 
for information about dimension bounds). 
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Valid Array Elements: 





ARRAY CIHOLD) 
NEXT (19) 
MATRIX Ci=-5) 
an TERM EXCL 
BAK (I,JCK+2*L,.3*ACM,N))) J is an array. 
nnn END OF IBM EXTENSION ———— 
ARRAY (1I,J/4*K¥2) 
ARRAY (-5) 
LOT (0) 
Invalid Array Elements: 


ALLC. TRUE. 2 A subscript expression may not be a 
logical expression. 


NAT C2OCL .Ss2<032 A subscript expression may not be a 
complex expression. 


Note: The elements of an array are stored in column-major order. 

To step through the elements of the array in the linearized order 
defined as "column-major order," each subscript varies Cin steps 

of 1) from its lowest valid value to its highest valid value, such 
that each subscript expression completes a full cycle before the 

next subscript expression to the right is incremented. Thus, the 

leftmost subscript expression varies most rapidly, and the 


© rightmost subexpression varies least rapidly. 
The following list is the order of an array named C defined with 

three dimensions: 

DIMENSION C(1:3,1:2,1:4) 
CClsieia CGCZetet?d ClSsiei3 COl»2sid CC2,2s1) €C3.2,1) 
CUssases Clgsisedd ChSsi52) Ghhedera. Cl2Z+e+e) CES,.2,2) 
Cllaies2? CZsiss? CldSeises) Chls2s3s) CC2s2s3) COS52;3) 
CAteadet) CC2Z0l+42 C85,559) CC1+2:43 €C2+254) CCS.234) 


SIZE AND TYPE DECLARATION OF AN ARRAY 


The size (number of elements) of an array is declared by 
specifying, ina subscript, the number of dimensions in the array 
and the size of each dimension. Each dimension is represented by 
an optional lower bound (el) and a required upper bound (e2) in 
the form: 


Syntax 





name € [Cel:] e2 ) 





15 an array name. 


where: 


el 
1s the lower dimension bound. It is optional. If el 
(with its following colon) is not specified, its value 
1s assumed to be l. 
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e2 
is the upper dimension bound and must always be 
specified. 


The colon represents the range of values for an array's subscript. 
For example, 


DIMENSION AC0:9),B(03,-2:5) 
DIMENSION ARAY(-3:-1),DARY(-3: ID3*xXID1) 
DIMENSION IARY(3) 


The upper and lower bounds (el and e2) are arithmetic expressions 
in which all constants and variables are of type integer. 


° If the array name is an actual argument, the expressions can 
contain only constants or names of constants of type integer. 


e The value of the lower bound may be positive, negative, or 
zero. It is assumed to be 1 if it is not specified. 


© A maximum of seven dimensions 15 permitted. The size of each 
dimension is equal to the difference between the upper and 
lower bounds +1. If the value of the lower dimension bound is 
1, the size of the dimension is equal to the value of its 
upper bound. 


© Function or array element references are not allowed in 
dimension bound expressions. 


° The value of the upper bound must be greater than or equal to 
the value of the lower bound. An upper dimension bound of an 
asterisk 15 always greater than or equal to the lower 
dimension bound. 





® If the array name is a Gummy argument and is in a subprogram, 
the expressions can also contain: 


= Integer variables that are also dummy arguments 
i Expressions that contain: 

— Signed or unsigned integer constants 

— Names of integer constants 


— Variables that are dummy arguments or appear ina 
common-block in that subprogram 


” The upper dimension bound of the last dimension of a dummy 
array name can be an asterisk. 


Size information must be given for all arrays in a VS FORTRAN 
program so that an appropriate amount of storage may be reserved. 
Declaration of this information i5 made by a DIMENSION statement, 
by a COMMON statement, or by one of the explicit type 
specification statements. These statements are discussed in 
detail in alphabetic sequence in "VS FORTRAN Statement 
Descriptions." 


The type of an array name is determined by the conventions for 
specifying the type of a variable name. Each element of an array 
is of the type and length specified for the array name. 


Object-Time Dimensions 


If a dummy argument array 15 used ina function or subroutine 
subprogram, the absolute dimensions of the array do not have to be 
explicitly declared in the subprogram by constants. Instead, the 

array declarators appearing in an explicit specification 
statement or DIMENSION statement in the subprogram may contain 
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dummy arguments or variables in common that are integer variables 
of length 4 to specify the size of the array. When the subprogram 
© is called, these integer variables receive their values from the 
actual arguments in the calling program reference or from common. 
Thus, the dimensions of a dummy array appearing in a subprogram 
may change each time the subprogram is called. This is called an 
Wadjustable array™ or an “object-time dimension array." 


The absolute dimensions of an array must be declared in the 
calling program or in a higher level calling program, and the 
array name must be passed to the subprogram in the argument list 
of the calling program. The dimensions passed to the subprogram 
must be less than or equal to the absolute dimensions of the array 
declared in the calling program. The variable dimension size can 
be passed through more than one level of subprogram (that 15, toa 
subprogram that calls another subprogram, passing it dimension 
Information). 


Integer variables in the explicit specification or DIMENSION 
statement that provide dimension information may be redefined 
Within the subprogram but the redefinitions have no effect on the 
size of the array. The size of the array is determined at the 
entry point at which the array information is passed. 


Character arrays are specified in the same manner as for the other 
data types. (See "DIMENSION Statement" on page 72 and "Explicit 
Type Statement" on page 86.) The length of each array element is 
either the standard length of 1 or may be declared larger with a 
type or IMPLICIT statement. Each character array element is 
treated as a single entity. Portions of an array element can be 
accessed through substring notation. 


CHARACTER SUBSTRINGS 


A character substring is a contiguous portion of a character 

variable or character array element. A character substring is 

identified by a substring reference. It may be assigned values and 
pics Aa referred to. A substring reference is local to a program 
unit. 





The form of a substring reference is: 


Syntax 





aCel:e2) 


a 
is a character variable name or a subscripted character 
array name (see "Array Elements" on page 20). 

el and e2 


are substring expressions. 


Substring expressions are optional, but the colon (:) is always 
required inside the parentheses. The colon represents a range of 
values. If el is omitted, a value of one is implied for el. If e2 
is omitted, a value equal to the length of the character variable 
or array element is implied for e2. Both el and e2 may be omitted; 
for example, the form v(:) is equivalent to v. 


The value of el specifies the leftmost character position and the 
value of e2 specifies the rightmost character position of the 
substring. The substring information Cif any) must be specified 
after the subscript information Cif any). 





e The values of el and e2 must be integer, positive, and 
nonzero. 
® The value of el must be less than or equal to the value of e2. 
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2 The values of el and e2 must be less than or equal to the 
number of characters contained in the corresponding variable 
name or array element. 





Example 1: 
Given the following statements: 


CHARACTER*®5 CH(10) 
CH(2)="ABCDE’ 


then 
CH(2)01:2) has the value AB. 


CH(2)¢€:3) has the value ABC. 
CH(2)03:) has the value CDE. 


Example 2: 
SUBSTG(:) = SYMNAM 
SUBST3¢3:15) = SYMB3 
SUBST5(5:9) = SUBARIC2)(1:) 
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@ VS FORTRAN EXPRESSIONS 


VS FORTRAN provides four kinds of expressions: arithmetic, 
character, relational, and logical. 


® The value of an arithmetic expression is always a number whose 
type is integer, real, or complex. 

® The value of a character expression is a character string. 

% The value of a relational or logical expression is always a 


logical value: .TRUE. or .FALSE.. 


EVALUATION OF EXPRESSIONS 





VS FORTRAN expressions are evaluated according to the following 
rules: 


® Any variable, array element, function, or character substring 
referred to as an operand in an expression must be defined 
(that is, must have been assigned a value) at the time the 
reference is executed. 


In an expression, an integer operand must be defined with an 
integer value, rather than a statement number. (See "ASSIGN 
Statement™ on page 46.) If a character string or a substring 
is referred to, all of the characters referred to must be 
defined at the time the reference is executed. 


a The execution of a function reference in a statement must not 
alter the value of any other entity within the statement in 
which the function reference appears. The execution of a 


function reference ina statement must not alter the value of 
any entity in COMMON that affects the value of any other 
function reference in that statement. 


If a function reference ina statement alters the value of an 
actual argument of the function, that argument or any 
associated entities must not appear elsewhere in the 
statement. For example, the following statements are 
prohibited if the reference to the function F defines I or if 
the reference to the function G defines X: 


ACI) = FCT) 
Y = GCX) + X 


The data type of an expression in which a function reference 
appears does not affect the evaluation of the actual 
arguments of the function. 


& Any array element reference requires the evaluation of its 
subscript. The data type of an expression in which an array 
reference appears does not affect, nor is it affected by, the 
evaluation of the subscript. 


® Any execution of a substring reference requires the 
evaluation of its substring expressions. The data type of an 
expression in which a substring name appears does not affect, 
nor is it affected by, the evaluation of the substring 
expressions. 
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The simplest arithmetic expression consists of a primary, which © 
may be a single constant, name of a constant, variable, array 

element, function reference, or another expression enclosed in 
parentheses. The primary may be either integer, real, or complex. 

In an expression consisting of a single primary, the type of the 


primary is the type of the expression. Examples of arithmetic 
expressions are shown in Figure 5. 


Ta [Rea variable 


3.14D3 Double precision constant 


(2.005602 Complex constant 
SINCX) Real function reference 


C(A*¥Bt+C) Parenthesized real 
expression 





Figure 5. Examples of Arithmetic Expressions 





More complicated arithmetic expressions containing two or more 
primaries may be formed by using arithmetic operators that 
express the computation(s) to be performed. 


The arithmetic operators are shown in Figure 6. 


Operator Definition 

P| txvonentiotion 
Te _| muttipticetion 
, 
pe 






Addition Cor unary plus) 


Subtraction Cor unary minus) 


Figure 6. Arithmetic Operators 





VS FORTRAN Language Reference 








RULES FOR CONSTRUCTING ARITHMETIC EXPRESSIONS 





The following are the rules for constructing arithmetic 
expressions that contain arithmetic operators: 


® All desired computations must be specified explicitly. That 
is» if more than one primary appears in an arithmetic 
expression, they must be separated from one another by an 
arithmetic operator. For example, the two variables A and B 
are not multiplied if written: 


AB 


In fact, AB is regarded as a single variable with a two-letter 
name. 


If multiplication is desired, the expression must be written 
as follows: 


AX¥B or BX¥A 
® No two arithmetic operators may appear consecutively in the 
same expression. For example, the following expressions are 
invalid: 


A¥/B and A*-B 
The expression AX*-B could be written correctly as 
A¥*¥(-B) 


Two asterisks (**) dasignate exponentiation, not two 
multiplication operations. 


° Order of Computation 
@ In the evaluation of expressions, priority of the operations 


Hierarchy 


1s shown in Figure 7. 





Figure 7. Hierarchy of Arithmetic Operations 


Note: A unary plus or minus has the same hierarchy as a plus or 
minus in addition or subtraction. 


If two or more operators of the same priority appear successively 
in the expression, the order of priority of those operators is 
from left to right, except for successive exponentiation 
operators, where the evaluation is from right to left. 


Consider the evaluation of the expression in the assignment 
statement: 


RESULT= AXBtCxXDXxXI 


1 AXB Call the result X (multiplication) C(X+C¥DX¥I) 

2 D¥*T Call the result Y Cexponentiation) CX+CKY) 
© >.  CH#Y Call the result Z (multiplication) (X+Z) 

4 X+Z Final operation Caddition) 
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The expression: 


A**B¥X¥C 





is evaluated as follows: 





1. BX¥xXC Call the result Z. 
2. Ax**Z Final operation. 
Expressions with a unary minus are treated as follows: 


A--B is treated as A=0-B 


A=-B*¥C is treated as A=-(CB*C) Because * has higher precedence 
than - 

A=-B+C is treated as A=(-B)J+C Because - has equal precedence 
to + 


USE OF PARENTHESES IN ARITHMETIC EXPRESSIONS 


Because the order of evaluation Cand, consequently, the result) 
of an expression can be changed through the use of parentheses, 
refer to Figure 8, Figure 9, and Figure 10 to determine the type 
and length of intermediate results. Where parentheses are used, 
the expression contained within the most deeply nested 
parentheses (that is, the innermost pair of parentheses) is 
evaluated first. A parenthesized expression is considered a 
primary. 


For example, the expression, 


B/C CA-BI*XC)IFAKX2 





is effectively evaluated in the following order: 


1. #A~B Call the result W B/C WKC) +AK¥K2 
2 W*C Call the result X B/XtAKK2 

S. BX Call the result Y Y+A*X2 

4 AX¥*2 Call the result Z b Ge 

5 TtZ Final operation 


TYPE AND LENGTH OF THE RESULT OF ARITHMETIC EXPRESSIONS 


The type and length of the result of an operation depend upon the 
type and length of the two operands (primaries) involved in the 
operation. 


Figure 8 shows the type and length of the result of adding, 
subtracting, multiplying, or dividing when the first operand is 
an integer. 


Figure 9 shows the type and length of the result of adding, 
subtracting, multiplying, or dividing when the first operand is 
real. 


Figure 10 shows the type and length of the result of adding, 
subtracting, multiplying, or dividing when the first operand is 
complex. 


Note: Except for a value raised to an integer power, if two 
operands are of different type and length, the operand that 
differs from the type and/or length of the result is converted to 
the type and/or length of the result. Thus the operator operates 
on a pair of operands of matching type and length. 
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A negative operand Ceither real or integer) may not have a real 
exponent. 


When an operand of real or complex type is raised to an integer 
power, the integer operand is not converted. The resulting type 
and length match the type and length of the base. 


First 
Operand 


Second 
Operand 


Integer 
(4) 





Figure 8. Type and Length where the First Operand is Integer 
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First 
Operand 


Second 
Operand 


Integer 


Complex 
(323 





Figure 9. Type and Length where the First Operand is Real 
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First 
Operand 
Complex Complex Complex 
(8) (16) fie Pp 
Second 
Operand 
Integer Complex Complex 
(2) (8) (16) 
Integer Complex 
(4) (8) 
Real Complex 
(4) (8) 
Real Complex 
(8) C163 


Real Complex 
(16) (32) 


Complex Complex 
(8) (8) 


Complex 
(32) 


Figure 10. Type and Length where the First Operand is Complex 






















Complex 
(32) 

Complex 
(16) 


Complex 
(32) 












Complex 
C32) 









Complex 
C32) 
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EXAMPLES OF ARITHMETIC EXPRESSIONS 





Assume that the type of the following variables has been specified © 
as indicated below: 


Complex variable 





Then the expression I¥J/C¥*¥K+D is evaluated as follows: 


Subexpression Type and Length 
IXJ (Call the result X) Integer of length 4 
CX¥K (Call the result Y) Real of length 4 
me (Call the result Z) Real of length 4 


(X is converted to real of length 4 before division is performed. ) 


errr EOE EAE CN rr rrtemeeiing 
£+0 Complex of length 16 





(Z 1s expanded to real of length 8 and a complex quantity of 
length 16 (call it W) is formed in which the real part is the 
expansion of Z and the imaginary part is zero. Then the real 
part of Wis added to the real part of D and the imaginary part 
of Wis added to the imaginary part of D.) 


Thus, the final type of the entire expression is complex of 
length 16, but the types of the intermediate expressions change 
at different stages in the evaluation. 


a FD OF 1 Eh 


Depending on the values of the variables involved, the result of 
the expression I¥J*C might be different from IXCXJ. This may occur 
because of the number of conversions performed during the 
evaluation of the expression. 


Because the operators are the same, the order of the evaluation is 
from left to right. With IXJ*C, a multiplication of the two 
integers I*¥J yields an intermediate result of type integer and 
length 4. This intermediate result 1s converted to a type real of 
length 4 and multiplied with C of type real of length 4 to yielda 
type real of length ¢ result. 


With I¥C¥J, the integer I is converted to a type reali of length 4 
and the result is multiplied with C of type real of length 4 to 
yield an intermediate result of type real of length 4. The integer 
J is converted to a type real of length 4 and the result is 
multiplied with the intermediate result to yield a type real of 
length ¢ result. 


Evaluation of I¥J*¥C requires one conversion and IXCXJ requires 
two conversions. The expressions require that the computation be 
performed with different types of arithmetic. This may yield 

different results. 
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When division is performed using two integers, any remainder 15s 
truncated (without rounding) and an integer quotient is given. If 
the mathematical quotient is less than 1, the answer is 0. The 
sign is determined according to the rules of algebra. For example: 


I J I/J 


9 2 4 
=5 2 =2 
1 -4 0 


CHARACTER EXPRESSIONS 
The simplest form of a character expression is a character 
constant, character array element reference, character substring 
reference, or character function reference. More complicated 
character expressions may be formed by using one or more character 
operands together with character operators and parentheses. 


The character operator is shown itn Figure il. 


Figure 11. Character Operator 





The concatenation operation joins the operands in such a way that 
the last character of the operand to the left immediately precedes 
the first character of the operand to the right. For example: 





"AB'//'CD*® yields the value of 'ABCD'® 
The result of a concatenation operation is a character string 
consisting of the values of the operands concatenated left to 
right and its length is equal to the sum of the lengths of the 
operands. 
Note: Except in a CHARACTER assignment statement, the operands of 
a concatenation operation must not have inherited length. That 
is, their length specification must not be an asterisk (*) unless 


the operand is the name of a constant. See "Explicit Type 
Statement” on page 8&6. 


USE OF PARENTHESES IN CHARACTER EXPRESSIONS 


Parentheses have no effect on the value of a character expression. 
For example: 


If X has the value ‘'AB', 
Y has the value ‘CD’ 

and 
2 has the value ‘EF’ 

then the two expressions: 
X//SV/7/2 
X7/CY7/2Z) 

© both yield the same result, the value 'ABCDEF' 
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Valid Character Expressions: 





Substring: 
STISLICID = CVARIC: 13 


Function Reference: 


STI3SI4CIVARI) = CHARCIVARI) 


RELATIONAL EXPRESSIONS 
Relational expressions are formed by combining two arithmetic 
expressions With a relational operator or two character 
expressions with a relational operator. 


The six relational operators are shown in Figure 12. 


Operator Definition 
Pre few te 
pene. [Wot ewer 


Figure 12. Relational Operators 









Relational operators: 
e Express a condition that can be either true or false. 


® Operators may be used to compare two arithmetic expressions 
(except complex) or two character expressions. Only the .EQ. 
and .NE. operators may be used to compare an arithmetic 
expression with a complex expression. If the two arithmetic 
expressions being compared are not of the same type or length, 
they are converted following the rules indicated in Figure 8, 
Figure 9, and Figure 10. 


8 Comparison of an arithmetic expression to a character 
expression or vice versa is not allowed. 


In the case of character expressions, the shorter operand is 
considered as being extended temporarily on the right with blanks 
to the length of the longer operand. The comparison is made from 
left to right, character by character, according to the collating 
sequence as shown in Figure 3 and in "Appendix E. EBCDIC and ASCII 
Codes." 
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Examples: 


Assume that the type of the following variables has been specified 
as indicated: 


Variable Names Type 

ROOT, E Real 

Re Ls F Integer 

L Logical 

C Complex 

CHAR Character of length 10 


Then the following examples illustrate valid and invalid 
relational expressions. 


Valid Relational Expressions: 
E «kts J 
ExX¥2.7 .LE. (5*ROOT+4) 
«5 «GE. €.9¥ROOT) 
E «EQ. 27 a3EF05 
CHAR .EQ. ‘ABCDEFGH' 
C.NE. CMPLX(ROOT,E) 
Invalid Relational Expressions: 
C.GE.02.7 250 9ES) Complex quantities can only be compared 
for equal or not equal in relational 


expressions. 


Le E@is CATE Logical quantities may never be compared by 
relational operators. 


Ex¥%e ob Fee LE There is a missing period immediately 
after the relational operator. 


.GT.9 There is a missing arithmetic expression 
before the relational operator. 


ex2 .6@. "*ABC* A character expression may not be compared 
to an arithmetic expression. 


mamma > ii) .8 5): ) Ecco ama, 


Length of a Relational Expression: A relational expression is 
always evaluated to a LOGICAL*4 result, but the result can be 
converted in an assignment statement to LOGICAL*1. 


Se FM OF JEM EXTENSION 


LOGICAL EXPRESSIONS 


The simplest form of logical expression consists of a single 
logical primary. A logical primary can be a logical constant», a 
name of a logical constant, a logical variable, a logical array 
element, a logical function reference, a relational expression 
(which may be an arithmetic relational expression or a character 
relational expression), or a logical expression enclosed in 
parentheses. A logical primary, when evaluated, always has a 
value of true or false. 


More complicated logical expressions may be formed by using 
logical operators to combine logical primaries. 
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LOGICAL OPERATORS 





The logical operators are shown in Figure 13. (A and B represent @ 
logical constants or variables, or expressions containing 
relational operators.) 


Logical 
Operator 
-NOT. -NOT.A If A is true, then .NOT.A is false; if A 
is false, then .NOT.A is true. 


If A and B are both true, then A.AND.B is 
true; if either A or B or both are false, 
then A.AND.B is false. 





















If either A or B or both are true, then 
A.OR.B is true; if both A and B are 
false, then A.OR.B is false. 


ERY. A.EQV.B If A and B are both true or both false, 
then A.EQV.B is true; otherwise it is 
false. 

-NEQV. A.NEQV.B!i If A and B are both true or both false, 
then A.NEQV.B is false; otherwise it is 
true. 


Figure 13. Logical Operators 
The only valid sequences of two logical operators are: 
-AND..NOT. 
~OR:...NOT. @ 
~EQV..NOT. 
~NEQV..NOT. 





The sequence .NOT..NOT. is invalid. 

Only those expressions that have a value of true or false when 
evaluated, may be combined with the logical operators to form 
logical expressions. 

Examples: 


Assume that the types of the following variables have been 
specified as indicated: 


Variable Names Type 

ROOT, E Real 

Ase Ls F Integer 

L, W Logical 

CHAR, SYMBOL Character of lengths 3 and 6, respectively 


Then the following examples illustrate valid and invalid logical 
expressions using both logical and relational operators. 


Valid Logical Expressions: 


CROOTXA .GT. A) .AND. W 
L «AND. «NOT. (2 «GT. F2 
CE+5,.9E2 .Gi. 24E) .OR. L 


NOT. W .AND. .OT.. 1 
tL .AND. .NOT. W .ORs CHAR/Z*125°.L1T «SYMBOL 
CAMNF .GT. ROOT «AND. «NOT. TF .6@. ED 
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Invalid Logical Expressions: 


A.AND.L A is not a logical expression. 

-OR.W .OR. must be preceded by a logical 
expression. 

NOT.CA.GT.F) Missing period before the logical operator 
Pe ome 

L.AND..OR.W The logical operators .AND. and .OR. must 
always be separated by a logical expression. 

-ARD.L .AND. must be preceded by a logical 


expression. 


ORDER OF COMPUTATIONS IN LOGICAL EXPRESSIONS 
In the evaluation of logical expressions, priority of operations 


involving arithmetic operators is as shown in Figure 14. Within a 
hierarchic level, computation is performed from left to right. 


Operation Involving Arithmetic Operators Hierarchy 
Evaluation of functions lst Chighest) 


Addition and subtraction (+ and —) 4th 
sOh eral be a eae : 


Pas) eee 





Figure 14. Hierarchy of Operations Involving Arithmetic Operators 
In the evaluation of logical expressions, priority of operations 


involving character operators is as shown in Figure 15. Within a 
hierarchic level, computation is performed from left to right. 


Relationals (.GT.,.GE.,.LT., 





Figure 15. Hierarchy of Operations Involving Character Operators 
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Example: 
Assume the type of the following variables has been specified as © 
follows: 


Variable Names Type Length 
B,D REAL & 
A REAL 8 
L,N LOGICAL 4 


The expression 
A.GT.D*¥*B.AND..NOT.L.OR.N 


is effectively evaluated in the following order (Cand from left to 
right): 


1. DXB Call the result W. 
Exponentiation is performed because arithmetic operators have 
a higher priority than relational operators, yielding a real 
result W of length ¢. 

co. AviGT att Call the result X. 
The real variable A of length 8 is compared to the real 
variable W which was extended to a length of 8» yielding a 
logical result X whose value is true or false. 

3. -NOT.L Call the result Y. 
The logical negation is performed because .NOT. has a higher 


priority than .AND., yielding a logical result Y whose value 
is true if L is false and false if L 1s true. @ 





& A .AND. F Call the result Z. 


The logical operator .AND. is applied because .AND. has a 
higher priority than .OR. to yield a logical result Z whose 
value is true if both X and Y are true and false, if both X and 
Y are false, or if either X or Y 1s false. 


5. 2.0K. 


The logical operator .OR. is applied to yield a logical result 
of true if either Z or N is true or if both Z and N are true. 
If both Z and N are false, the logical result is false. 


Note: Calculating the value of logical expressions may not always 
require that all parts be evaluated. Functions within logical 
expressions may or may not be invoked. For example, assume a 
logical function called LGF. In the expression A.OR.LGFC.TRUE.), 
it should not be assumed that the LGF function is always invoked, 
since it is not always necessary to do so to evaluate the 
expression when A is true. 


USE OF PARENTHESES IN LOGICAL EXPRESSIONS 


38 


Parentheses may be used in logical expressions to specify the 
order in which the operations are to be performed. Where 
parentheses are used, the expression contained within the most 
deeply nested parentheses (that is, the innermost pair of 
parentheses) is evaluated first. 
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Example: 


Assume the type of the following variables specified as follows: 


Variable Names Type Length 
B REAL 4 
C REAL 8 
KyL LOGICAL 4 


The expression 
~NOT.CCB.GT.C.0R RJ. AND.LD 

is evaluated in the following order: 

Le BOG Call the result X. 


B is extended to a real of length 8 and compared with C of 
length 8 yielding a logical result X of length 4 whose value 
is true if B is greater than C or false if B is less than or 
equal to C. 


2s wmeORK Call the result Y. 


The logical operator .OR. is applied to yield a logical result 
of Y whose value is true if either X or K is true or if both X 
and K are true. If both X and K are false, the logical result 
Y is false. 


Pe eet Pee Call the result Z. 


The logical operator .AND. is applied to yield a logical 
result Z whose value is true if both Y and L are true and 
false if both Y and L are false or if either Y or L is false. 


%. «NOT.Z 


The logical negation is performed to yield a logical result 
Whose value is true if Z is false and false if Z is true. 


A logical expression to which the logical operator .NOT. applies 
must be enclosed in parentheses if it contains two or more 
quantities. Otherwise, because of the higher precedence of the 
-NOT. operator, it will apply to the first operand of the 
relation. For example, assume that the values of the logical 
variables, A and B, are false and true, respectively. Then the 
following two expressions are not equivalent: 


“NOT .CASOR. BD 
~-NOT.A.OR.B 


In the first expression, A.OR.B is evaluated first. The result is 
true; but .NOT.(C.TRUE.) is the equivalent of .FALSE.. Therefore, 
the value of the first expression is false. 


In the second expression, .NOT.A is evaluated first. The result is 


true; but .TRUE..OR.B is the equivalent of .TRUE.. Therefore, the 
value of the second expression is true. 
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The lengths of the results of the various logical operations are 
shown in Figure 16. (The result of logical operations is always © 





logical of length 4.) 





Figure 16. Type and Length of the Result of Logical Operations 








40 VS FORTRAN Language Reference 





e VS FORTRAN STATEMENTS 


VS FORTRAN STATEMENT 





Source programs consist of a set of statements from which the 
compiler generates machine instructions and allocates storage for 
data areas. A given VS FORTRAN statement performs one of three 
functions: 


® It performs certain executable operations (for example, 
addition, multiplication, branching). 


® It specifies the nature of the data being handled. 
e It specifies the characteristics of the source program. 


VS FORTRAN statements are either executable or nonexecutable. 


CATEGORIES 


Statements are divided into the following categories according to 
what they do: 


° Assignment statements 
® Control statements 
@ Data statement 


—————— ee TEN EX ENS LON 
® Debug statements 


Lenn END OF IBM EXTENSION ————— 


® Input/output statements 


® Main program statement 
® Specification statements 
® Subprogram statements 


——— | Ce a 
e VS FORTRAN compiler directives 


——— st END OF LBM EXTEN 


ASSIGNMENT STATEMENTS 


CONTROL STATEMENTS 


There are four types of assignment statements: the arithmetic, 
character, and logical assignment statements and the ASSIGN 
statement. Execution of an assignment statement assigns a value 
to a variable. Assignment statements are executable. 


In the absence of control statements, VS FORTRAN statements are 
executed sequentially. That is,» after one statement has been 
executed, the statement immediately following it is executed. 
Control statements alter this normal sequence of execution of 
statements in the program. They are executable. 


VS FORTRAN Statements 41 











CALL If CELSE, ELSE IF» END IF? 
CONTINUE PAUSE 

DO RETURN 

END eS 

GO TO 


DATA STATEMENT 


The DATA statement assigns initial values to variables, array 
elements, arrays, and substrings. It is nonexecutable. 


SSS BED ARE ee trae 


DEBUG STATEMENTS 


The debug facility is a programming aid that helps locate errors 
in a VS FORTRAN source program. The debug facility traces the 
flow of execution within a program, traces the flow of execution 
between programs, displays the values of variables and arrays, 
and checks the validity of subscripts. DISPLAY, TRACE OFF, and 
TRACE ON are executable; AT, DEBUG, and END DEBUG are 
nonexecutable. 


AT END DEBUG 
DEBUG TRACE OFF 
DISPLAY TRACE ON 


—_________-- END OF IBM EXTENSION ———————————_—_____—_ 


INPUT/OUTPUT STATEMENTS 


Input/output (1/0) statements transfer data between two areas of 
internal storage or between internal storage and an input/output 
device. Examples of input/output devices are card readers; 
printers, punches, magnetic tapes, disk storage units, and 
terminals. 


The I70 statements allow the programmer to specify how to process 
the VS FORTRAN files at different times during the execution of a 
program. Except for the FORMAT statements, these statements are 


executable. 
BACKSPACE OPEN 
CLOSE PRINT 
ENDFILE READ 
FORMAT REWIND 
INQUIRE WRITE 


eee. he era 


WAIT 
ees END OF IDM EXTENSION ———— 


Note: The description of the VS FORTRAN input and output 
statements is made from the point of view of a VS FORTRAN program. 
Therefore words such as file, record, or OPEN must not be confused 
with the same words used when discussing an operating system. (See 
the descriptions of each I/0 statement. ) 


MAIN PROGRAM STATEMENT 


The PROGRAM statement names the main program. It can only be used 
in a main program. It is not required. The PROGRAM statement is 


nonexecutable. 
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SPECIFICATION STATENENTS 


_ The specification statements provide the compiler with 
information about the nature of the data in the source program. In 
addition, they supply the information required to allocate 
storage for this data. 


The specification statements must follow the PROGRAM, SUBROUTINE, 
FUNCTION, or BLOCK DATA statements. They may be preceded by FORMAT 
or ENTRY statements. Specification statements are nonexecutable. 


COMMON EXTERNAL 
DIMENSION IMPPLiICLT 
EQUIVALENCE INTRINSIC 
Explicit type: PARAMETER 
COMPLEX, INTEGER, SAVE 


LOGICAL, REAL, 
CHARACTER, and 
DOUBLE PRECISION 


eee eee Ae AE SEV Eh ee ere een 
NAMELIST 


en ENT OF TE EXTEN LON 


SUPPROGRAN STATEMENTS 


There are three subprogram statements: FUNCTION, SUBROUTINE, and 
BLOCK DATA. There are also intrinsic function procedures and 
statement function procedures. The list of intrinsic functions 
supplied with VS FORTRAN is contained in “Appendix C. IBM and ANS 
FORTRAN Features" on page 222. 


Function subprograms differ from subroutine subprograms in the 
way they are invoked and in that function subprograms return a 
value to the calling program, whereas subroutine subprograms need 
not return any. 





The function subprogram is a VS FORTRAN subprogram that begins 
with a FUNCTION statement. It is independently written and is 
executed whenever its name is appropriately referred to in 
another program. It is called by coding its name with any 
necessary parameters. At least one executable statement in the 
function subprogram must assign a result to the function name; 
this value is returned to the calling program as the result of the 
function. 


The subroutine subprogram is similar to the function subprogram, 
except that it begins with a SUBROUTINE statement and does not 
return an explicit result to the calling program. The rules for 
naming function and subroutine subprograms are similar. They both 
require an END statement and they both may contain dummy 
arguments. Like the function subprogram, the subroutine 
subprogram can be a set of commonly used computations, but it need 
not return any results to the calling program. The subroutine 
subprogram is executed whenever its name is referred to by the 
CALL statement. 


Subprogram statements are nonexecutable. 


BLOCK DATA Statement function 
ENTRY SUBROUTINE 
FUNCTION 
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= IBM _ EXTENSION ———————_______ 


VS FORTRAN COMPILER DIRECTING STATEMENTS @ 


The EJECT and INCLUDE statements are IBM extensions that direct 
the compiler to start a new page or to insert one or more source 
statements into the program. They are not considered part of the 
VS FORTRAN language. 


_—__________________—- END OF IBM EXTENSION ————————_———_! 


ORDER OF STATEMENTS IN A PROGRAM UNIT 
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The order of statements in a VS FORTRAN program unit Cother than a 
BLOCK DATA subprogram) is as follows: 


1. PROGRAM or subprogram statement, if any. 
2. PARAMETER statements and/or IMPLICIT statements, if any. 


3. Other specification statements, if any. (Explicit 
specification statements that initialize variables or arrays 
must follow other specification statements that contain the 
same variable or array names.) 


G. Statement function definitions, if any. 
5. Executable statements. 
6. END statement. 


Within the specification statements of a program unit, IMPLICIT 
statements must precede all other specification statements except 
PARAMETER statements. Any specification statement that specifies 
the type of a name of a constant must precede the PARAMETER 
statement that defines that particular name of a constant; the 
PARAMETER statement must precede all other statements containing 
the names of constants that are defined in the PARAMETER 
statement. 





FORMAT and ENTRY statements may appear anywhere after the PROGRAM 
or subprogram statement and before the END statement. The ENTRY 
statement, however, may not appear between a block IF statement 
and its corresponding END IF statement or within the range of a 
DO. DATA statements must follow the IMPLICIT statements and any 
specification statements that contain the same variable or array 
names. 


ee TE EATEN LO 


A NAMELIST statement declaring a NAMELIST name must precede the 
use of that name in any input/output statement. Its placement is 
as indicated for other specification statements. 


SS ENT) OF IBM EXTENSION ————— 


The order of statements in BLOCK DATA subprograms is discussed in 
"BLOCK DATA Statement" on page 56. Figure 17 shows a diagram of 
the order of statements. 


® The vertical lines in the figure delineate varieties of 
statements that may be interspersed. For example, FORMAT 
statements may be interspersed with statement function 
statements and executable statements. 


" Horizontal lines delineate varieties of statements that must 
not be interspersed. For example, statement function 
statements must not be interspersed with executable @ 


statements. 
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PROGRAM, FUNCTION, SUBROUTINE, 


Statement 


or BLOCK 


IMPLICIT 
Statements 


DATA 













PARAMETER 
Statements 





FORMAT 













Comment Other 
Lines and Specification 
Statements 












ENTRY 


















Statement 
Statements Function 
DATA Statements 
Statements 






Executable 
Statements 
END Statement 


Figure 17. Order of Statements and Comment Lines 


VS FORTRAN STATEMENT DESCRIPTIONS 





The rules for coding each VS FORTRAN statement are described in 
this section in alphabetic sequence. Brief examples are included. 
For additional examples and explanations, see VS FORTRAN 
Application Programming: Guide. 


Notes: 


1. Comments and statement numbers are included because, although 
they are not actual statements, they are integral parts of VS 
FORTRAN programs. 


2. Each described statement begins at the top of a page. 


ARITHMETIC IF STATEMENT 





See "IF Statements™ on page 120. 
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ASSIGN 
ASSIGN STATEMENT 





The ASSIGN statement assigns a number (a statement number) to an © 
integer variable. See also "Statement Numbers" on page 174. 


Syntax 





ASSIGN stn TO i 


15 the number of an executable statement or a FORMAT 
statement in the program unit containing the ASSIGN 
statement. 


|-=«- 


is the name of an integer variable (not an array element) of 
length ¢ that 1s assigned the statement number stn. 


The statement number must be the number of a statement that 
appears in the same program unit as the ASSIGN statement. The 
statement number must be the number of an executable statement or 
a FORMAT statement. 


Execution of ASSIGN is the only way that a variable can be defined 
with a statement number. 


A variable must have been defined with a statement number when it 
is referred to in an assigned GO TO statement or as a format 
identifier in an input or output statement. An integer variable 
defined with a statement number may be redefined with the same or 
a different statement number or an integer value. 


If stn is the statement number of an executable statement, i can 
be used in an assigned GOTO statement. 


If stn is the statement number of a FORMAT statement, i can be ® 
used as the format identifier in a READ, WRITE, or PRINT statement 
with FORMAT control. 





The value of i is not the integer constant represented by stn and 
cannot be used as such. To use i as an integer, it must be 
assigned an integer value by an assignment or input statement. 
This assignment can be done directly or through EQUIVALENCE, 
COMMON, or argument passing. 


ASSIGNED GO TO STATEMENT 


See "GO TO Statements™ on page 118. 
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Assignment 


ASSIGNMENT STATEMENTS 


This VS FORTRAN statement closely resembles a conventional 
algebraic equation; however, the equal sign specifies a 
replacement operation rather than equality. That is, the 
expression to the right of the equal sign is evaluated, and the 
resulting value replaces the current value of the variable, array 
element, character substring, or character variable to the left 
of the equal sign. 


Syntax 





i5 a variable, array element, character substring, or 
character variable. 


b 
is an arithmetic, logical, or character expression. 


An assignment statement is used for the results of calculations. 
The result of evaluating the expression replaces the current 
value of a designated variable, array element, or character 
substring. There are three assignment statements: arithmetic, 
logical, and character. 


Arithmetic Assignment Statement 


If b is an arithmetic expression, a must be an integer, real, or 
complex variable or an array element. 


Figure 18 shows the rules for conversion in arithmetic assignment 
statements, a=b, where the type of b is integer or real. 


Figure 19 shows the rules for conversion in arithmetic assignment 
statements, a-b, where the type of b is complex. 


Character Assignment Statement 


If b is a character expression, a must be a character variable, 
character array element, or character substring. 


None of the character positions being defined ina must be 
referenced in b directly or through associations of variables 
(that 1s, using COMMON, EQUIVALENCE, or argument passing). 


The lengths of a and b may be different. The characters of b are 
moved from left to right into the corresponding character 
positions of a. If a has more positions than there are characters 
in b, the rightmost positions of a are filled with blanks. Ifa 
has fewer positions than there are characters in b, only the 
leftmost characters of b are moved to fill the positions of a. 


Logical Assignment Statement 


If b is a logical expression, a must be a logical variable or a 
logical array element. The value of b must be either true or 
false. 
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Assignment 
INTEGER*¥2 
INTEGER*4 


Type 
REAL 
INTEGER 
INTEGER¥2 ||] 
Fix and Fix and Fix and 
assign assign assign 
INTEGERX4 
Real Real 
assign assign 


REAL*8 















DOUBLE 
PRECISION 














Float and 
assign 


REAL *4 








REAL 


REAL¥8 =| | 


DOUBLE 
PRECISION 














DP float 
and assign 








INTEGER 
DP extend a DP assign 


and assign 
QP extend 
and assign 











QP float 
and assign 


QP extend 
and assign 





REAL*16 
















































Real assign 
real part; 
imaginary 
part set 

to 0 


Real assign 
real part; 
imaginary 
part set 

to 0 


Float and 
assign to 
real part; 
imaginary 
part set to 0 


Assign to 
real part; 
imaginary 
part set 

to 0 


COMPLEXxX8 


COMPLEX 

































DP assign 
real part; 
Imaginary 
part set 

to 0 


DP extend 
and assign 
to real part; 
imaginary 
part set to 0 


Assign to 
real part; 
imaginary 
part set 

to 0 


DP float and 
assign to 
real part; 
Imaginary 
part set to 0 


COMPLEX*16 
































QP extend 
and assign 
real part; 
imaginary 
part set to 0 


Assign real 
part; 
imaginary 
part set 

to 0 


QP float and 
assign to 
real part; 
imaginary 
part set to 0 


QP extend 
and assign 
to real part; 
Imaginary 
part set to 0 







COMPLEX*32 


Figure 18. Conversion Rules for the Arithmetic Assignment Statement a=b, Where Type of 
b is Integer or Real 
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Assignment 











COMPLEX*8 


COMPLEX*16 COMPLEX*32 


COMPLEX 


Type 
of a 


INTEGER*¥2 












Fix and 
assign real 
part; 
imaginary 
part not used 


Fix and 
assign real 
part; 
imaginary 
part not used 


Fix and 
assign real 
part; 
imaginary 
part not used 
















INTEGER®4 








INTEGER 


REAL *4 


REAL 


REAL*8 


DOUBLE 
PRECISION 




















Real assign, 
real part; 
imaginary 
part not 
used 


Real assign, 
real part; 
imaginary 
part not 
used 


Assign real 
part; 
imaginary 
part not 
used 










































DP extend and 
assign real 
part; 
imaginary 
part not used 


DP assign 
real part; 
imaginary 
part not 

used 


Assign real 
part; 
imaginary 
part not 
used 
























QP extend 
and assign 
real part; 
Imaginary 
part not used 


QP extend 
and assign 
real part; 
imaginary 
part not used 


Assign real 
part; 
imaginary 
part not 
used 









@ REAL*16 

















Real assign 
real and 
imaginary 
parts 


Real assign 
real and 
imaginary 
parts 






COMPLEX*8& 


COMPLEX 




















DP extend DP assign 






and assign real and 
real and imaginary 
Imaginary parts 


parts 














QP extend 
and assign 
real and 

imaginary 
parts 


QP extend 
and assign 
real and 

imaginary 
parts 


Figure 19. Conversion Rules for the Arithmetic Assignment Statement a=b, Where Type of 
b 15 Complex 
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Assignment 


Notes to Figures: IBM extensions are shown with inner boxes in 
the figures. For clarity of presentation, the extensions are not 
marked in the following definitions. Terms in the figures are 
defined as follows: 





Assian Transmit the expression value without change. If the 
expression value contains more significant digits 
than the variable a can hold, the value assigned to a 
15s unpredictable. 


Real assign Transmit to a as much precision of the most 


significant part of the expression value as REAL*4 
data can contain. 


DP assign Transmit as much precision of the most significant 
part of the expression value as double precision 
(REAL¥8) data can contain. 


Fix Truncate the fractional portion of the expression 
value and transform the result to an integer of 
length 4 bytes. If the expression value contains 
more significant digits than an integer of length 4 
bytes can hold, the value assigned to the integer 
variable is unpredictable. 


Float Transform the integer expression value to a REAL*4 
number, retaining in the process as much precision 
of the value as a REAL*4 number can contain. 


DP float Transform the integer expression value to a double 
precision (REAL*8&) number. 





DP extend Extend the real value to a double precision (REAL*8) 
number. 

QP float Transform the integer expression value to a REAL*16 
number. 

QP extend Extend the real value to a REAL*¥16 number. 

Examples: 


Assume the type of the following data items has been specified: 


Real variables G, 


Complex variable 8 
POL powcr oP CD? Real array elements 4 
Logical variables 4, 4 
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Assignment 


The following examples illustrate valid assignment statements 
® using constants, variables, and array elements as defined above. 


Statement Description 


The value of A is replaced by the 
current value of B. 











The value of B is converted to an 
integer value, and the value of K is 
replaced by as much as can be held in 2 
bytes. 


The value of I is converted to a real 
value, and replaces the value of A. 


= I + 1 The value of I is replaced by the value 
of £ * ds 


I 

E = I[X*J+D I is raised to the power J and the 
result is converted to a real value to 
which the value of D is added. This 
result replaces the real part of the 





complex variable E. The imaginary part 
of the complex variable is set to zero. 


A = CD The most significant part of the product 
of C and D replaces the value of A. 
The real part of the complex variable E 
replaces the value of A. 
The value of A replaces the value of the 
real part of the complex variable E; the 


imaginary part is set equal to zero. 





G = .TRUE. The value of G is replaced by the 
logical value true. 


If G is true, the value of H is replaced 
by the logical value false. If G is 
false, the value of H is replaced by the 
logical value true. 


The value of I 15 converted to a real 
value; if the real constant 3. is 
greater than this result, the logical 
value true replaces the value of G. If 
3. 15 not greater than the converted I, 
the logical value false replaces the 
value of G. 


C1.,8,2.9) The value of the complex variable E is 


replaced by the value of the complex 
constant (1.0,2.0). The statement E = 
(A,B), where A and B are real variables, 
is invalid. The mathematical function 
subprogram CMPLX can be used for this 
purpose. See "Appendix C. IBM and ANS 
FORTRAN Features" on page 222. 


The real part of the complex constant E 
is replaced by the value of array 
element F(C5). The imaginary part is set 
equal to zero. 
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Assignment 


[steteent —[eserition 


= 99999999.0 Even though C is of length 8, the 
constant having no exponent 15 
considered to be of length 4. Thus the 
number will not have the accuracy that 
may be tntended. If the basic real 
constant were entered as 99999999.0D0, 
the converted value placed in the 
variable C would be a closer 
approximation to the entered basic real 
decimal constant because 15 decimal 
digits can be represented in 8 bytes. 


§$71306¢€1:20) = CHAR] must be declared CHARACTER with a 
"TEST*//CHAR1 type statement. 






















° 
t 
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AT 


iene Eee 





® AT STATEMENT 


The AT statement identifies the beginning of a debug packet and 
indicates the point in the program at which debugging is to 
begin. 


Syntax 
AT stn 


stn 
is the number of an executable statement in the program or 
function or subroutine subprogram to be debugged. 


The debugging operations specified within the debug packet are 
performed prior to the execution of the statement indicated by 
the statement number (stn) in the AT statement. 


The statement number cannot be specified in another debug 
packet. 


There must be one AT statement for each debug packet; there may 
be many debug packets for one program or subprogram. 


The AT statement identifies the beginning of a debug packet and 
the end of the preceding packet (if any) unless this is the last 
packet, in which case it is ended by the END DEBUG statement. 


For a more complete discussion of debug packets and for examples 
of the AT statement, see "DEBUG Statement" on page 68. 


® ——_______- END OF IBM EXTENSION —————————_ 
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BACKSPACE 
BACKSPACE STATEMENT 





The BACKSPACE statement positions a sequentially accessed © 
external file at the beginning of the VS FORTRAN record last 

written or read. (See “OPEN Statement" on page 137.) 

Syntax 


BACKSPACE un 





BACKSPACE (€ CUNIT=Jun [,IOSTAT=ios] [,ERR=stn] ) 


UNIT=un 
un is the reference to the number of an I70 unit. It can, 
optionally, be preceded by UNIT= if the second form of the 
statement 1s used. un 1s an integer expression of length 4 
whose value must be zero or positive. 


If UNIT= 1s not specified, un must appear first in the 
statement. The other parameters may appear in any order. If 
UNIT= is specified, all the parameters can appear in any 
order. 


IOSTAT=190S 
is optional. ios is an integer vartable or an integer array 
element of length ¢. ios is set positive if an error is 
detected; it is set to zero if no error is detected. VSAM 
return and reason codes are placed in ios. 


ERR=stn 
stn is the number of a statement in the same program unit as 
the BACKSPACE statement. Transfer ts made to stn if an error 
is detected. 


Valid BACKSPACE Statements: 








BACKSPACE un 

BACKSPACE Cun, ERR=stn) 

BACKSPACE CUNIT=un, IOSTAT=i0s, ERR=stn) 

BACKSPACE CERR=stn,UNIT=un) 

BACKSPACECUNIT=2*INt2) 

BACKSPACECIOSTAT=I10S, ERR=99999,UNIT=2*IN-10) 
Invalid BACKSPACE Statements: 


BACKSPACE UNIT=un UNIT= is not allowed without the 
parentheses. 

BACKSPACE un, ERR=stn Parentheses must be specified. 

BACKSPACE CERR=stn,un) UNIT= must be specified. 





When the BACKSPACE statement 1s encountered, the unit specified 
by un must be connected to an external file for SEQUENTIAL access. 


(See VS FORTRAN Application Programming: Guide.) If the unit is 
not connected, an error is detected. 


The external file connected to the unit un must exist; otherwise, 
an error is detected. (The existence of a file can be determined 
with the INQUIRE statement. exs must have the value true. See 
"INQUIRE Statement" on page 128.) 


A BACKSPACE statement positions an external file to the beginning 
of the preceding record. If there 1s no preceding record, the 

BACKSPACE statement has no effect. The BACKSPACE statement must 

not be used with external files using list-directed formatting. 
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BACKSPACE 
A BACKSPACE statement for a SYSIN file has no effect. 


RS acess aE 5M eS Ys, nc a 





The BACKSPACE statement must not be used with external files 
written using NAMELIST. If it is used, the result ts 
unpredictable. 


An external file can ba extended if the execution of an ENDFILE 
statement or the detection of an end-of-file is immediately 
followed by the execution of a BACKSPACE and a WRITE statemant 
on this file. (See "READ Statement—Formatted with Sequential 
Access" on page 153.) 


Tha BACKSPACE statement may be used with asynchronous READ and 
WRITE statements provided that any input or output operation on 
the file has baan completad by the execution of a WAIT 
statement. A WAIT statement is not required to complete the 
BACKSPACE operation. 


$n END OF IBM EXTENSION —————————— 


Transfer 15 made to the statement number specified by the ERR 
parameter 1f an error is datected. If IOSTAT=i05 1s spacified, a 
positiva integer value is assianed to ios when an error is 
datected. Execution continues with the statement number spaci fied 
by the ERR parameter Cif present) or with the next statement if 
the ERR paramater is not spacified. If the ERR parameter and the 
IOSTAT parameter ara both omitted, program execution is 
terminated when an error is detected. 
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BLOCK DATA 
BLOCK DATA STATEMENT 





The BLOCK DATA statement names a block of data. 
Syntax 





BLOCK DATA Cname] 





is the name of the block data subprogram. This name is 
optional. It must not be the same as the name of another 
subprogram, a main program, or common block name in the 
executable program. There can only be one unnamed block -data 
subprogram in an executable program. 


To initialize variables in a named common block, a separate 
subprogram must be written. This separate subprogram contains 
only the BLOCK DATA, IMPLICIT, PARAMETER, DATA, COMMON, 

DIMENSION, SAVE, EQUIVALENCE, and END statements, comment lines, 
and explicit type specification statements associated with the 
data being defined. This subprogram is not called; its presence 
provides initial data values for named common blocks. Data may not 
be initialized in unnamed common blocks. 


The BLOCK DATA statement must appear only as the first statement 
in the subprogram. Statements that provide initial values for 
data items cannot precede the COMMON statements that define those 
data items. 


Any main program or subprogram using a named common block must 
contain a COMMON statement defining that block. If initial values 
are to be assigned, a block data subprogram 1s necessary. 


A particular common block may not be initialized in more than one 
block data subprogram. 


Entities not in a named common block must not be initialized and 
must not appear in a DIMENSION, EQUIVALENCE, or type statement tn 
a block data subprogram. 


All elements of a named common block must be listed in the COMMON 

statement, even though they are not all initialized. For example, 

the variable A in the COMMON statement in the following block data 
subprogram does not appear in the DATA statement. 


Example 1: 


BLOCK DATA 

COMMON /ZELN/C,A,B 

COMPLEX C 

DATA C/(02.4,3.769)7,B/1.27 
END 


Data may be entered into more than one common block ina single 
block data subprogram. 


Example 2: 


BLOCK DATA VALUE1 

COMMON/ELN/C,A,B/RMG/Z,Y 

COMPLEX C 

DOUBLE PRECISION 2 

DATA €7(2.4,3.769)7,B/41.27,2/7 .64980825D0/ 
END 


56 VS FORTRAN Language Reference 























BLOCK IF STATEMENT 


BLOCK DATA 

As a result of this example, in BLOCK DATA named VALUE1, 

COMMON/ELN/C,A,B 
Will have the complex variable C real part initialized to 2.4 and 
the imaginary part initialized to 3.769. The variable A will not 
be initialized and B will be initialized to 1.2. 

COMMON/RMG/Z,Y 
will have the double precision variable Z initialized with the 


double precision constant 7.64980825 and Y will not be 
initialized. 


See "IF Statements" on page 120. 
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CALL 
CALL STATEMENT 


The CALL statement: 


® Transfers control to a subroutine subprogram 
® Evaluates actual arguments that are expressions 
° Associates actual arguments with dummy arguments 


Syntax 





CALL name [C (€ Cargli [C,arg2] [,argq3] 





name 
is the name of a subroutine subprogram or an entry point. 
This name may be a dummy argument in a FUNCTION, SUBROUTINE, 
or ENTRY statement. 

arg 


is an actual argument that is being supplied to the 
subroutine subprogram. The argument may be a variable, array 
element or array name, a constant, an arithmetic, logical, 
or character expression, a function or subroutine name, or 
an asterisk (*) followed by the statement number of an 
executable statement that appears in the same program unit 
as the CALL statement. 


If no actual argument is specified, the parentheses may be 
omitted. 


The CALL statement transfers control to the subroutine subprogram 
and replaces the dummy variables with the values of the actual 
arguments that appear in the CALL statement. 
The CALL statement can be used in a main program, a function 
subprogram, or a subroutine subprogram, but a subprogram must not 
refer to itself directly or indirectly and must not refer to the 
main program. A main program cannot call itself. 
If name is a dummy argument in a subprogram containing CALL name, 
this CALL statement can be executed only if the subprogram is 
given control at one of its entry points where name appears in the 
list of dummy arguments. (See "EXTERNAL Statement™ on page 930.) 
Valid CALL Statements: 

CALL $Z0001 

CALL SZO0001C ) 

CALL S19001C(CVAR40) 

CALL TEST2C TELS KF2; JIF32 

CALL SUBLCCOM2+3*COM3-7,VALZ*XVAL37.6,. TRUE.) 

CALL SUB2(A,B,*10,%20,%30) 


CALL BC'A',0,1,R) 


CHARACTER TYPE STATEMENT 


See "Explicit Type Statement" on page 86. 
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CLOSE STATEMENT 





CLOSE 


A CLOSE statement disconnects an external file from an input or 
output unit. 


Syntax 
CLOSE ( CUNIT=Jun [,ERR=stn] [,STATUS=sta] [C,IOSTAT=ios] ) 





UNIT=un 
un is the reference to the number of an I70 unit. It can 
optionally be preceded by UNIT=. It is an integer expression 
of length 4 whose value must be zero or positive. 


If UNIT= is not specified, un must appear first in the 
statement. The other parameters may appear in any order. If 
UNIT= is specified, all the parameters can appear in any 
order. 


ERR=stn 
is optional. stn is a statement number. If an error occurs in 
the execution of the CLOSE statement, control is transferred 
to the statement labeled stn. That statement must be 
executable and must be in the same program unit as the CLOSE 
statement. If ERR=stn is omitted, execution halts when an 
error 1s detected. 


STATUS=sta 
is optional. sta is a character expression whose value (when 
any trailing blanks are removed) must be KEEP or DELETE. sta 
determines the disposition of the file that is connected to 
the specified unit. 


IOSTAT=10S 
is optional. ios is an integer variable or an integer array 
element of length 4. Its value is set positive if an error is 
detected; it is set to zero if no error is detected. VSAM 
return and reason codes are placed in IOSTAT. 


Each of the parameters of the CLOSE statement may appear only 
once. The unit specifier Cun) must appear. All value assignments 
are made according to the rules for assignment statements. 


Execution of a CLOSE statement that refers to a unit may occur in 
any program unit of an executable program and need not occur in 
the same program unit as the execution of an OPEN statement 
referring to that unit. When the CLOSE statement is encountered, 
the unit specified by un may or may not be connected to a file. If 
the unit is connected, the file may or may not exist. 


If KEEP is specified for a file that exists, the file continues to 
exist after the execution of the CLOSE statement. If KEEP is 
specified for a file that does not exist, the file will not exist 
after the execution of the CLOSE statement. If DELETE is 
specified, the file is deleted. 


If STATUS is omitted, the assumed value is KEEP, unless the file 
status prior to execution of the CLOSE statement is SCRATCH, in 
which case the assumed value is DELETE. (The STATUS parameter 
affects only the internal VS FORTRAN status. The external status 
is set by the JCL or other system environment and will not be 
overridden. ) 


After a unit has been disconnected by execution of a CLOSE 
statement, it may be connected again within the same executable 
program to the same file or a different file. 


After a file has been disconnected by execution of a CLOSE 
statement, it may be connected again within the same executable 
program to the same unit or a different unit provided that the 
file still exists. (See "OPEN Statement" on page 137.) 
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closed. Each unit is closed with status KEEP, unless the file 
status prior to termination of execution was SCRATCH, in which 


When execution ends normally, all units that are connected are @ 
case the unit 1s closed with status DELETE. 


Example 1: 


Assume that the type of the following variables has been specified 
as follows: 


Variable Names Type Length 

IN, IACT,2Z INTEGER 4 

DELETE CHARACTER 6 
and that 


DELETE = "DELETE’ 
The following statements are valid: 
CLOSEC6+IN) 
CLOSE(Z¥IN+2) 
CLOSEC(Z¥IN+3,STATUS=DELETE) 
CLOSECIOSTAT=IACT, ERR=99999,STATUS="KE'//"EP °",UNIT=0) 





Example 2: 
STATUS="KEEP® 


DELETE=STATUS 
CLOSECUNIT=6,STATUS=DELETE) @ 


CLOSECUNIT=6,STATUS=STATUS) 
CLOSECUNIT=6,STATUS="KEEP') 


Each of these CLOSE statements should execute the same way and 
give a status of KEEP. 
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Comments 
COMMENTS 


Comments provide documentation for a program. They can be entered 
in either fixed form or free form. 


Fixed-Form Input 
Fixed-form comments have the following attributes: 


@ A "C" or an asterisk (%) may appear in column 1 or all blanks 
may appear in columns 1 to 72. 


® A comment may appear anywhere before the END statement. 


pa sO BM EXTENSION 


Free-Form Input 


Free-form comments have the following attributes: 

e Any line that does not follow a continued line and that has 
the guotation mark (") character as its first character is 
considered a comment. 

€ A comment Line cannot be continued. 


—____- END OF IBM EXTENSION ———————_" 
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COMMON 
COMMON STATEMENT 


The COMMON statement makes it possible for two or more program 
units to share storage and to specify the names of variables and 
arrays that are to occupy the area. 


Syntax 





COMMON C/UCnamell/] Llistil€ [€,] ¢l€namen]/ listn ] 








name 
is an optional cammon block name. These names must always be 
enclosed in slashes. They cannot be the same as names used in 
PROGRAM, SUBROUTINE, FUNCTION, ENTRY, or BLOCK DATA 
statements. 
The form 77 Cwith no characters except possibly blanks 
between the slashes) denotes blank common. If namel denotes 
blank common, the first two slashes are optional. 
The comma preceding the common block name designator /name/ 
is optional. 

list 





is a list of variable names or array names that are not dummy 
arguments. If a variable name is also a function name, 
subroutine name, or entry name, it must not appear in the 
list. If the list contains an array name, dimensions may also 
be declared for that array. (See "DIMENSION Statement" on 
page 72.) 


A given common block name may appear more than once in a COMMON 
statement, or in more than one COMMON statement in a program unit. 


Blank and named common entries appearing in COMMON statements are 
cumulative throughout the program unit. Consider the following 
two COMMON statements: 


COMMON A, B, C /R/ D, E /S/ F 
COMMON G, H /7S/ I, J ZR/RA/W 

These two statements have the same effect as the single statement: 
COMMON A, B, C, G, H», W/R/ D, E, R 78/7 F, I, J 


If a character variable or character array is in a common block, 
all the other variables and arrays in that common block must be of 
type character. 


Although the entries in a COMMON statement can contain dimension 
information, object-time dimensions may never be used. 


The length of a blank common can be extended by using an 
EQUIVALENCE statement, but only by adding beyond the last entry. 


A common block resides ina fixed location in storage during the 
execution of a program. Because of this, all program units of this 
program refer to data at that location as defined in the COMMON 
statements in each program unit. 


In the following example, the complex variable, CV, and the real 
array, RV, refer to the same storage locations. 


The statement: RVC2) = 1.2 will assign the value of 1.2 to the 
imaginary part of CV. 
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COMMON 





Main Program Subroutine 
COMMON CV SUBROUTINE SUB 
COMPLEXx8 CV COMMON RV(2) 
CALL SUB RV(2) = 1.2 
STOP RETURN 

END END 


Blank and Named Common 


Variables and arrays may be placed in separate common blocks by 
giving distinct common block names (name). Those blocks that have 
the same name occupy the same storage area. The name cannot be the 
same as the main program name, subprogram name, or entry name. The 
variables and arrays of a common block must all be of type 
character or all noncharacter in all the program units that refer 
to the common block. 


Naming these separate blocks permits a calling program to share 
one common block with one subprogram and another common block with 
another subprogram. It also makes it easier to document the 
program. 


The differences between blank and named common are: 





® There is only one blank common tn an executable program, and 
it has no name. 
© There may be many named commons, each with its own name. 
® Blank common may have different lengths in different program 
units. 


Each program unit that uses a named common must define it to 
be of the same length. 





oF Variables and array elements in blank common cannot be 
assigned initial values. 


Variables and array elements in named common may be assigned 
initial values by DATA statements ina block data subprogram. 


Se eeoreeres| [EM EAT CNL 


Variables and array elements in named common may be 
assigned initial values by explicit type specification 
statements ina block data subprogram. 


—_—_—_—_—____——_—__—_————— END OF IBM EXTENSION ——————_—_____" 


Variables that are to be placed in named common are preceded by 
the common block name enclosed in slashes. For example, the 
variables A, B, and C are placed in the named common, HOLD, by the 
following statement: 


COMMON ZHOLDZ A,B,C 


In a COMMON statement, blank common is distinguished from named 
common by placing two consecutive slashes before the variables 
Cor, 1f the variables appear at the beginning of the COMMON 
statement, by omitting any common block name). For example, 


COMMON As B», © CITEMS/S X; Y»s 2 7 #7 Ds, Es F 
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COMMON 


The variables A, B, C, D, E, and F are placed in blank common in 
that order; the variables X, Y, and Z are placed in the named 
common ITEMS. } 





COMPLEX TYPE STATEMENT 


See "Explicit Type Statement” on page 86. 


COMPUTED GG TO STATEMENT 
See "GO TO Statements” on page 118. 
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CONTINUE STATEMENT 


® The CONTINUE statement is an executable control statement that 
takes no action. It can be used to designate the end of a DO loop, 


or to label a position in a program. 


Syntax 





CONTINUE 


CONTINUE 
is a statement that may be placed anywhere in the source 
program (where an executable statement may appear) without 
affecting the sequence of execution. It may be used as the 
last statement in the range of a DO loop in order to avoid 
ending the DO loop with an unconditional or assigned GO TO, 
block IF, ELSE IF, ELSE, ENDIF, STOP, RETURN; END; 
arithmetic IF, another DO statement, or a logical IF 
statement containing an unconditional or assigned GO TO,» or 
a STOP, RETURN, or arithmetic IF statement. 
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DATA 
DATA STATEMENT 


The DATA statement defines initial values of variables, array 
elements, arrays, and substrings. 


Syntax 





DATA list] Zelistiv [€ [,] list2 /clist2/ ] 





is a list of variables, array elements, arrays or 
substrings, and implied DO lists. The comma preceding 
list2...listn is optional. 


Subscript and substring expressions used in each list can 
contain only integer constants or names of integer 
constants. (An exception is described under "Implied DO ina 
DATA Statement” on page 75.) 


clist 
is a list of constants or the names of constants. Integer and 
real constants may optionally be signed. Any of these 
constants may be preceded by r*®, where r is a nonzero 
unsigned integer constant or the name of such a constant. 
When the form r® appears before a constant, it indicates that 
the constant 1s to be repeated r times. 


A DATA initialization statement is not executable. The DATA 
statement cannot precede a PROGRAM, FUNCTION, SUBROUTINE, BLOCK 
DATA, IMPLICIT, PARAMETER, or an explicit type statement. 
Otherwise, a DATA statement can appear anywhere in the program. 


There must be a one-to-one correspondence between the total 
number of elements specified or implied by the list list and the 
total number of constants specified by the corresponding list 
clist after application of any replication factors, r. 


Integer, real, and complex variables or array elements must be 
initialized with integer, real, or complex constants; conversions 
take place according to the arithmetic assignment rules, if 
necessary. 


a TEN EXIENS 


A hexadecimal constant can be used to initialize any type of 
variable or array element. 


If a hexadecimal constant initializes a complex data type, one 
constant is used that initializes both the real and the 
imaginary parts and the constant 1s not enclosed in 
parentheses. If the constant is smaller than the length Cin 
bytes) of the entire complex entity, zeros are added on the 
left. If the constant is larger, the leftmost hexadecimal 
digits are truncated. 


A logical variable or logical array may be initialized with T 
instead of .TRUE. and F instead of .FALSE.. 


nen END OF IBM EXTENSION ————— 


Character items can be initialized by character data. Each 
character constant initializes exactly one variable, one array 
element, or one substring. If a character constant contains more 
characters than the item it initializes, the additional rightmost 
characters in the constant are ignored. If a character constant 
contains fewer characters than the item it initializes, the 
additional rightmost characters in the item are initialized with 
blank characters. (Each character represents one byte of 
storage.) 
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DATA 


A variable or array element defined with an initial value may not 
be in blank common and may not be assigned an initial value more 
than once. If the variable or array element 15 In a named common 
block, it may be initially defined only ina block data 
subprogram. For purposes of this constraint, entities that are 
associated with each other through COMMON or EQUIVALENCE 
statements are considered to be the same entity. 





Valid DATA Statements: 

LOGICAL L(4) 

DIMENSION DC(50),F(5),G609) 

CHARACTER®4 C,CCC(5) 

DATA A. Bs» $75.0,6.1,57.357,D/25%1.0,25%2.07,E75.17 

DATA F45%1.07, G/9%¥2.07, L/4%.TRUE./%, C/*FOUR'Z 

DATA COCCI) C122)7° ABT, CCCIIC324)7°CD'# 
eens FEM EXTENS LON ey 


DATA CCOC2)7ZC5C6C7C38/, I“ ZF8/,R/Z007 
—_—___________________- END OF IBM EXTENSION —————————————_—" 
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DEBUG STATEMENT 


The DEBUG statement sets the conditions for operation of the 
debug facility and designates debugging operations that apply 
to the entire program unit (such as subscript checking). 


Syntax 





DEBUG option,...» option 


An option may be any of the following: 


UNIT (Cun) 
un i185 an integer constant that represents a unit number. 
All debugging output is placed tn this file, which is 
called the debug output file. If this option is not 
specified, any debugging output is placed in the 
installation-defined output file. All unit definitions 
within an executable program must refer to the same unit. 


SUBCHK (al; B2see0d an) 
a is an array name. The validity of the subscripts used 
with the named arrays is checked by comparing the 
subscript combination with the size of the array. If the 
subscript value exceeds the size of the array,» a message 15 
placed in the debug file. Program execution continues, 
using the incorrect subscript. If the list of array names 
is omitted, all arrays in the program are checked for valid 
subscript usage. If the entire option is omitted, no 
arrays are checked for valid subscripts. 


TRACE 6 


This option must be in the DEBUG specification statement 
of each program or subprogram for which tracing 15s 

desired. If this option is omitted, there can be no display 
of program flow by statement number within this program. 
Even when this option is used, a TRACE ON statement must 
appear in the first debug packet in which tracing is 
desired. 


INIT (il, Tebcens in) 
i is the name of a variable or an array that 15 to be 
displayed in the debug output file only when the variable 
or the array elements are assigned a value. If i isa 
variable name, the name and value are displayed whenever 
the variable is assigned a new value in either an 
assignment, a READ or an ASSIGN statement. If i 1S an array 
name, the array element is displayed. If the list of names 
is omitted, a display occurs whenever the value of a 
variable or an array element is assigned a value. If the 
entire option is omitted, no display occurs when values 
are assigned. 





SUBTRACE 
This option specifies that the name of this subprogram 15s 
to be displayed whenever it is entered. The message RETURN 
is to be displayed whenever execution of the subprogram is 
completed. 


The options in a DEBUG statement may be given in any order and 
they must be separated by commas. 


All debugging statements must precede the first statement of 
the program being debugged. 


In the case of a subroutine, the debug statements must appear 
immediately before the SUBROUTINE statement. In the case of a 
function subprogram, the debug statements must appear 
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DEBUG 


immediately before the FUNCTION statement. The required 
statement sequence 1s: 


1. DEBUG statement 

Fd Debug packets 

3. END DEBUG statement 
4 


First of the source program statements of a program unit to 
be debugged 


A debug packet begins with an AT statement and ends when either 
another AT statement or an END DEBUG statement is encountered. 


Debug statements are written in either fixed form or free form 
and follow the same rules as other VS FORTRAN statements. 


In addition to the VS FORTRAN language statements, the 
following debug statements are allowed: 


TRACE ON 
TRACE OFF 
DISPLAY 


All VS FORTRAN statements are allowed in a debug packet except 
as listed in "Considerations when Using DEBUG." 


Considerations when Using DEBUG 


The following precautions must be taken when setting up a debug 
packet: 


e Any DO loops, block IF, ELSE IF, or ELSE statements 
initiated within a debug packet must be wholly contained 
within that packet. 


8 Statement numbers within a debug packet must be unique. 
They must be different from statement numbers within other 
debug packets and within the program being debugged. 


@ An error in a program should not be corrected with a debug 
packet; when the debug packet is removed, the error remains 
in the program. 


® No specification statements can appear in a debug packet; 
nor can any of the following statements: 


BLOCK DATA 

ENTRY 

FUNCTION 

PROGRAM 

statement function 
SUBROUTINE 


e The program being debugged must not transfer control to any 
statement number defined in a debug packet; however, 
control may be returned to any point in the program being 
debugged from a packet. In addition, no debug packet may 
refer to a label defined in another debug packet. A debug 
packet may contain a RETURN, STOP, or CALL statement. 


——__________-_- END OF IBM EXTENSION ———————————_—__—__—_—_——_" 
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DEBUG Examples: 
Example 1: 


DEBUG UNIT(6) 
AT il 
WRITEC6,21)A,B,C 
21 FORMATCIX, 'A=',110,'B=",110,'"C=",110) 
END DEBUG 


INTEGER A,B,C 


10 B=AX SQRTCFLOAT(C)) 
11 IF(B)40,50,60 


The values of A, B, and C are to be examined as they were at the 
completion of the arithmetic operation in statement 10. 
Therefore, the statement number specified in the AT statement is 
11. The values of A, B, and C are written to the file connected to 


unit 6. 
Example 2: 
DEBUG TRACE, UNIT(6) 
AT 10 
TRACE ON 
AT 25 
TRACE OFF 
AT 35 
DISPLAY C 
TRACE ON 
END DEBUG 
10 A=2.0 
15 L= 1 
20 B= A f 2.5 
25 DQ 36 I = 1,5 
30 CONTINUE 
35 € = B + 3.415 
40 D=CXX2 
45 CALL SUBLCD,L»RD 
STOP 
END 
C 
DEBUG SUBTRACE,TRACE 
AT 4 
TRACE ON 
END DEBUG 
SUBROUTINE SUB1(¢(X,I1,Y) 
4 Y=FUNCICX-INTCX) 3 
WRITE €6;%) Y 
RETURN 
END 
C 


DEBUG SUBTRACE, TRACE 
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DEBUG 


AT 100 

TRACE ON 

END DEBUG 
FUNCTION FUNCI(2Z) 


100 FUNC] = COS(Z) + SIN(Z) 


RETURN 
END 


When statement 10 is encountered, tracing begins, as specified by 
the TRACE ON statement in the first debug packet. When statement 
25 is encountered, tracing stops, as specified by the TRACE OFF 
statement in the second debug packet. When statement 35 is 
encountered, tracing begins again and the value of C is written to 
the debug output file, as specified in the third debug packet. 


When SUB1 is entered, the words "SUBTRACE SUBL" appear in the 
output because of the SUBTRACE option on the DEBUG statement in 
subroutine SUB1. When statement 4 is encountered, tracing begins. 
When FUNC] is entered, the words "SUBTRACE FUNC1"™ appear in the 
output. When FUNC] is exited, the words "SUBTRACE RETURN FROM 
FUNCI™ appear in the output, and similarly, at exit from SUBI1, the 
words "SUBTRACE RETURN FROM SUBI1". Note that the output from the 
WRITE statement in SUB1 will go to the same unit (6) as the DEBUG 
output. 
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DIMENSION 
DIMENSION STATEMENT 


The DIMENSION statement specifies the name and dimensions of an 
array. 


Syntax 
DIMENSION al(€diml) [C, a2(€dim2) ] 





|o3 


is an array name. 


is composed of one through seven dimension bounds, separated 
by commas, that represent the limits for each subscript of 
the array in the form: 


el:e2 


is the lower dimension bound. It is optional. If el 
(with its following colon) is not specified, its value 
is assumed to be l. 


is the upper dimension bound and must always be 
specified. 


(See "Size and Type Declaration of an Array" on page 2l 
for rules about dimension bounds.) 


Each a in a DIMENSION statement declares that a is an array in 
that program unit. Array names and their bounds may also be 
declared in COMMON statements and in type statements. Only one 
declaration of the array name (a) as an array is permitted ina 
program unit. 


Valid DIMENSION Statements: 
DIMENSION AC10), ARRAYC5,5,5), LISTC(10,100) 
DIMENSION AC1:10), ARRAYC1:5,1:5,1:5), LISTC1:10,1:100) 
DIMENSION BC0:24), CC-4:2), DATACO:9,-5:4,10) 
DIMENSION GCI: J,M:N) 
DIMENSION ARRAY (M¥N: IJ) 
DIMENSION ARRAY (M¥N: I®J,%) 
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DISPLAY 


® = $$$ IBM _ EXTENSION ———_ 


DISPLAY STATEMENT 


The DISPLAY statement displays data in NAMELIST output format. 
It may appear anywhere within a debug packet. 


Syntax 





DISPLAY list 


list 


is a list of variable or array names separated by commas. 


The DISPLAY statement eliminates the need for FORMAT or 
NAMELIST and WRITE statements to display the results of a 
debugging operation. The data is placed in the debug output 
File. 


The effect of a DISPLAY list statement is the same as the 
following source language statements: 


NAMELIST /name/list 
WRITE Cun, name) 





where name is the same in both statements. 


Array elements, dummy arguments, and substring references may 
not appear in the list. 


For examples and explanations of the DISPLAY statement, see 
"DEBUG Statement" on page 68. 


—_—__________- END OF IBM EXTENSION ———————————___—_—__—__—" 
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DO 
DO STATEMENT 


The DO statement indicates that the statements that physically 

follow it, up to and including a specified statement, are to be 

executed. These statements are called the "range of the DO" ora 
"DG~-ieop. ™ 


Syntax 





End of DO Initial Test 
Range Variable Value Value Increment 


DO stn C,] i mi, m2 C,m3] 


is the number of an executable statement appearing after the 
DO statement in the program unit containing the DO. The comma 
after stn is optional. 


is an integer, real, or double precision variable (not an 
array element) called the DO variable. 


ml, m2, and m3, 

are integer, real, or double precision arithmetic 
expressions. The values of the expressions ml, m2, and m3 are 
converted to the type of the DO variable 1, if necessary. m3 
is optional and cannot have a value of zero; if it is 
omitted, its value is assumed to be l, and the preceding 
comma must be omitted. 


The statements in the range of the DO are executed only if: 


ml is less than or equal to m2, and m3 1s greater than 0 
or 
ml is greater than or equal to m2, and m3 is less than 0 


If one of the above relationships between ml, m2, and m3 is true, 
the first time the statements in the range of the DO are executed, 
i is initialized to the value of ml; on each succeeding iteration, 
i is increased by the value of m3. The number of iterations that 
can be executed, also called iteration count, is the value of: 


MAX CINTCCm2 - mi © m3? 7 m5), 03. 


The first time 1 exceeds m2 at the end of the iteration, control 
passes to the statement following the statement numbered stn. 
Upon completion of the DO, the DO variable i contains the last 
value that exceeded m2. 


If one of the above relationships is not true, execution continues 
with the statement following the last statement of the range of 
the DO, or the outer DO if the statement numbered stn is shared by 
more than one DO. (See "IF Statements" on page 120.) 


The DO variable may not be redefined within the range of the 
DO-loop. However, any variables in the expressions for the 
initial value, test value, or increment may be redefined in the 
DO-loop without changing the iteration count as established for 
the DO statement. 
Valid DO Statements: 

DO 40, INT=1,4,1 

DO 20, VAR=START,END,INC 


For examples (with explanations) of DO statements Cincluding 
nesting), see VS FORTRAN Application Programming: Guide. 
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DO 
Implied DO in a DATA Statement 
© The form of an implied DO list in a DATA statement is: 
Syntax 





C(dlist, uz 


where: 


dlist 
is a list of array element names and implied DO lists. 


|—- 


is the name of an integer variable called the implied DO 
variable. 


ml, m2, and m3 
are each an integer constant or name of an integer constant, 
or an expression containing only integer constants or names 
of integer constants. The expression may contain implied DO 
variables of other surrounding implied DO lists that have 
this implied DO list within their ranges (dlist). m3 is 
optional and, if omitted, it 1s assumed to be 1l, and the 
preceding comma must be omitted. 


The range of an implied DO list ts dlist. An iteration count is 
established from ml, m2, and m3 exactly as for a DO-loop, except 
that the iteration count must be positive. 


Upon completion of the implied DO, the implied DO variable is 
undefined and may not be used until assigned a value ina DATA 
statement, assignment statement, or READ statement. 





Each subscript expression in dlist must be an integer constant or 
an expression containing only integer constants or names of 
integer constants. The expression may contain implied DO 
variables of implied DO lists that have the subscript expression 
within their ranges. 


Valid Implied DO Statement: 
DATA (CXCJ,1I),I=1,J3),J=1,53715%0.7 


Implied DO in an Input/Output Statement 


If an implied DO appears in the List parameter of an input/output 
statement, the items specified by the implied DO are transmitted 
to or from the file. The implied DO list in an input/output 
statement is of the form: 


Cdlist, i = ml, m2 [, m3] ) 
where: 


dlist 
is an input/output list. 


|-- 


is the name of an integer, real, or double pracision variable 
(not an array element) called the DO variable. 


ml, m2, and m3 
are integer, real, or double precision arithmetic 
expressions. The values of the expressions ml, m2, and m3 
are converted to the type of the DO variable i, if necessary. 
m3 is optional and cannot have a value of zero; if it is 
omitted, its value is assumed to be l, and the preceding 
comma must be omitted. 
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DO 





In an input statement, the DO-variable i, or an associated entity, 
must not appear as an input list item in dlist. When an implied-DO 
list appears in an input/output list, the list items in dlist are 
specified once for each iteration of the implied DO list with 
appropriate substitution of values for any occurrence of the 
DO-variable i. 





For example, assume that A is a variable and that B, C, and D are 
one-dimensional arrays, each containing 20 elements. Then the 
statement: 


READ CUNIT=5)A,B,(CCI),1I=1,4),D04) 


reads one value into A, the next 20 values into B, and the next 4 
values into the first four elements of the array C, and the next 
value into the fourth element of D. 


Or the statement: 
WRITE CUNIT=6)A,B,(CCI),1=1,4)3,D042 


writes one value from A, the next 20 values from B, and the next 4 
values from the first four elements of the array C, and the next 
value from the fourth element of D. 


If the subscript (I) were not included with the array C, the 
entire array would be transferred four times. 


Implied DOs can be nested, if required. For example, to read an 
element into array B after values are read into each row of a 
10x20 array A, the following input statement would be written: 


READ CUNIT=5)C(CACI,J),J=1,20),B01),1=1,10) 


Or to write an element from array B after values are written into 
each row of a 10x20 array A, the following output statement would 
be written: 


WRITE CUNIT=6)¢(CACI,J),J=1,20),B¢1I),1=1,10) 





The order of the names in the list specifies the order in which 
the data is transferred. 


DOUBLE PRECISION TYPE STATEMENT 


76 


See "Explicit Type Statement” on page 8&6. 
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EJECT 


paw [Fl CAEN 


@ EJECT STATEMENT 


EJECT is a compiler directive. It starts a new full page of the 
source listing. The EJECT statement should not be continued. 


Syntax 
EJECT 


rene ENT) OF IBM EXTENSION ——————————_—_—_—_——_ 


ELSE STATEMENT 


See "IF Statements” on page 120. 


ELSE IF STATEMENT 


See "IF Statements” on page 120. 
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END 
END STATEMENT 








The END statement defines a program unit. That is, it terminates a ® 
main program, or a function, subroutine, or block data 
subprogram. 


Syntax 
END 


The END statemant may be numbered. It may not be continued, and no 
other statement in the program unit may have an initial line that 
appears to be an END statement. The END statement terminates 
program execution if 1t is executed in the main program. If 
executed in a subprogram, it has the effect of a RETURN statement. 


Execution of an END statement terminates the association between 
the dummy arguments of the subprogram and the current actual 
arguments. All entities within the subprogram become undefined 
except: 


° Entities specified in SAVE statements (see "SAVE Statement” 
on page 171) 


® Entities in blank common. 


@ Initially defined entities that have neither been redefined 
nor become undefined. 


® Entities in named common blocks that appear in the subprogram 
and appear in at least one other program unit that is 
referring, either directly or indirectly, to that subprogram. 
The entities in a named common block may become undefined by 
execution of a RETURN or END statement in another program ® 
unit. 





All variables that are assigned a statement number with the ASSIGN 
statement become undefined regardless of whether the variable is 
in common or specified in a SAVE statement. 


END Statement in a Function Subprogram 


All function subprograms must end with an END statement. They may 
also contain RETURN statements. The END statement specifies the 
physical end of the subprogram. 


A subprogram must not be referred to twice during the execution of 
an executable program without the intervening execution of a 
RETURN or END statement in that subprogram. 


END Statement in a Subroutine Subprogram 





All subroutine subprograms must end with an END statement. They 
may also contain RETURN statements. The END statement specifies 
the physical end of the subprogram. If the END statement is 
reached during execution of the subroutine subprogram, it is 
executed as a RETURN statement. 
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END DEBUG 


SS Fe re ee 


END DEBUG STATEMENT 


The END DEBUG statement terminates the last debug packet for the 
program. 


Syntax 





END DEBUG 


END DEBUG 1s placed after the other debug statements and just 
before the first statement of the program being debugged. Only 
one END DEBUG statement is allowed ina program unit. 


For examples of debug packets and the END DEBUG statement, see 
"DEBUG Statement” on page 68. 


—_____- END OF IBM EXTENSION ———————————_—_—_——__—" 
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ENDFILE 
ENDFILE STATEMENT 








The ENDFILE statement writes an end-of-file record ona @ 
sequentially accessed external file. 


Syntax 
ENDFILE un 





ENDFILE ¢€ CUNIT=Jun [€, ERR=stnJ] [, IOSTAT=ios] ) 


UNIT=un 
is the reference to the number of an I/O unit. un can 
optionally be preceded by UNIT= if the second form of the 
statement is used. It is an integer expression of length 4 
whose value must be zero or positive. 


ERR=stn 
is optional. stn is a statement number. If an error occurs in 
the execution of the ENDFILE statement, control is 
transferred to the statement labeled stn. That statement 
must be executable and must be in the same program unit as 
the ENDFILE statement. If ERR=stn is omitted, execution 
halts when an error 1s detected. 





IOSTAT=i10S 
is optional. ios 15 an integer variable or an integer array 
element of length 4. Its value 1s set positive if an error is 
detected; it is set to zero if no error is detected. VSAM 
return and reason codes are placed in ios. 


If UNIT= is specified, UNIT, ERR, and IOSTAT can appear in any 
order; otherwise, un must appear first. 





Valid ENDFILE Statements: 
ENDFILE un 
ENDFILE Cun,ERR=stn) 
ENDFILE CUNIT=un,ERR=stn) 
ENDFILE CERR=stn,UNIT=un) 
Invalid ENDFILE Statements: 





ENDFILE UNIT=un UNIT= is not allowed outside 
parentheses. 

ENDFILE un,ERR=stn Parentheses must be specified. 

ENDFILE CERR=stn,un) UNIT= must be specified 


or un must be first in the list. 


When the ENDFILE statement is encountered, the unit specified by 
un must be connected to an external file with SEQUENTIAL access. 


(See VS FORTRAN Application Programming: Guide for an example. } 
If the unit is not connected, an error is detected. 





After successful execution of the ENDFILE statement, the external 
file connected to the unit specified by un is created if it does 
not already exist. 
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END IF STATEMENT 


ENDFILE 


———— IBM EXTENSION ———_ 


Use of ENDFILE with asynchronous READ and WRITE statements is 
allowed, provided that any input or output operation on the file 
has been allowed to complete by the execution of a WAIT 


statement. A WAIT statement 1s not required to complete the 
ENDFILE operation. 


Multiple file data sats are permitted in VS FORTRAN. Therefore, 
after execution of an ENDFILE, additional data may be 
transferred to the subsequent files. 


a PMD OF IBN EX css 


Transfer is made to the statement specified by the ERR= if an 
error 1s detected. If IOSTAT=i105 15 specified, a positive integer 
value 1s assigned to ios when an error 15 detected. Then execution 
continues with the statement specified with the ERR parameter, if 
present, or with the next statement if ERR 1s not specified. If 
the ERR parameter and the IOSTAT parameter are both omitted, 
program execution 1s terminated when an error is detected. 


See "IF Statements” on page 120. 


VS FORTRAN Statements 8&1 





ENTRY 
ENTRY STATEMENT 





The ENTRY statement names the place in a subroutine or function 
subprogram that can be used in a CALL statement or as a function 
reference. 


The normal entry into a subroutine subprogram from the calling 
program is made by a CALL statement that refers to the subprogram 
name. The normal entry into a function subprogram is made by a 
function reference in an arithmetic, character, or logical 
expression. Entry is made at the first executable statement 
following the SUBROUTINE or FUNCTION statement. 


It is also possible to enter a subprogram by a CALL statement (for 
a subroutine subprogram) or a function reference (for a function 
subprogram) that refers to an ENTRY statement in the subprogram. 
Entry is made at the first executable statement following the 
ENTRY statement. 


Syntax 





ENTRY name [€ ¢€ € argli [, arg2 J] 








nama 
is the name of an entry point ina subroutine or function 
subprogram. If ENTRY appears in a subroutine subprogram, 
name 1s a subroutine name. If ENTRY appears in a function 
subprogram, name is a function name. 

arg 


is an optional dummy argument corresponding to an actual 
argument ina CALL statement or ina function reference. See 
"Subprogram Statements” on page 43. If no arg is specified, 
the parentheses are optional. 


arg may be a variable name, array name, or dummy procedure 
name or an asterisk. An asterisk is permitted only in an 
ENTRY statement ina subroutine subprogram. 


The ENTRY statement cannot appear in a main program. 


A function subprogram must not refer to itself or any of its entry 
points either directly or indirectly. 


ENTRY statements are nonexecutable and do not affect control 
sequencing during execution of a subprogram. They can appear 
anywhere after a FUNCTION or SUBROUTINE statement except that an 
ENTRY statement must not appear between a block IF statement and 
its matching END IF statement or between a DO statement and the 
terminal statement of its range. 


Note: ENTRY statements can appear before the IMPLICIT or 
PARAMETER statements. The appearance of an ENTRY statement does 
not alter the rule that statement functions must precede the first 
executable statement. 


Within a function or subroutine subprogram, an entry name must not 
appear as a dummy argument of a FUNCTION, SUBROUTINE, or ENTRY 
statement and it must not appear in an EXTERNAL statement. 


If information for an object-time dimension array is passed ina 
reference to an ENTRY statement, the array name and all its 
dimension parameters (except any that are in a common area) must 
appear in the argument list of the ENTRY statement. See "Size and 
Type Declaration of an Array" on page 21. 
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ENTRY 


In a function subprogram, the type of the function name and entry 
® name are determined (in order of decreasing priority) by: 


1. An explicit type statement 
2. An IMPLICIT statement 
3. Predefined convention 


In function subprograms, an entry name must not appear preceding 
the entry statement except ina type statement. 


If any entry name ina function subprogram or the name of the 
function subprogram is of type character, all entry names of the 
function subprogram must be of type character with the same 
length. The CHARACTER type statement or IMPLICIT statement can be 
used to specify the type and length of the entry point name. The 
length specification is restricted to the forms permitted in the 
FUNCTION statement. 


The types of these variables (that is, the function name and entry 
names) can be different only if the type is not character; the 
variables are treated as if they were equivalenced. After one of 
these variables is assigned a value in the subprogram, any others 
of different type become indeterminate in value. 


In a function subprogram, either the function name or one of the 
entry names must be assigned a value. 


Upon exit from a function subprogram, the value returned is the 
value last assigned to the function name or any entry name. It is 
returned as though it were assigned to the name in the current 
function reference. If the last value is assigned to a different 
entry name, and that entry name differs in type from the name in 
the current function reference, the value of the function is 
undefined. 





Entry names in a subroutine subprogram do not have a type; 
explicit typing is not allowed. 


Valid ENTRY Statements: 
ENTRY ENTCT3 
ENTRY SUB2 (T,*,%) 
ENTRY SUBS (,*) 


Actual Arguments in an ENTRY Statement 


Entry into a function subprogram associates actual arguments with 
the dummy arguments of the referenced ENTRY statement. Thus, all 
appearances of these arguments in the whole subprogram become 
associated with actual arguments. 


See "Actual Arguments in a Subroutine Subprogram” on page 176 and 
"Actual Arguments in a Function Subprogram" on page 116. 


Dummy Arguments in an ENTRY Statement 


The dummy arguments in the ENTRY statement need not agree in 
order, type, or number with the dummy arguments in the SUBROUTINE 
or FUNCTION statement or any other ENTRY statement in the same 
subprogram. However, the actual arguments for each CALL or 
function reference must agree in order, type, and number with the 
dummy arguments in the SUBROUTINE, FUNCTION, or ENTRY statement 
to which it refers. 
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ENTRY 


Any dummy argument of an ENTRY statement must not be in an 
executable statement preceding the ENTRY statement unless it hes 
already appeared as a dummy argument in an ENTRY, SUBROUTINE, or 
FUNCTION statement prior to the executable statement. 





If an ENTRY dummy argument is used as an adjustable array name, 
the array name and all its dimensions Cexcept those in COMMON) 
must be in the same dummy argument list. 


Dummy arguments can be variables, arrays, dummy procedure names, 
or asterisks. The asterisk is allowed only in an ENTRY statement 
in a subroutine subprogram and indicates an alternate return 
specifier. 


A dummy argument must not appear in the expression of a statement 
function definition unless the name is also a dummy argument to 
the statement function, or is in a FUNCTION or SUBROUTINE 
statement, or is in an ENTRY prior to the statement function 
definition. 


A dummy argument used in an executable statement is allowed only 
if that dummy argument appears in the argument list of the 
FUNCTION, SUBROUTINE, or ENTRY statement by which the subprogram 
was entered. 


See "Dummy Arguments in a Subroutine Subprogram” on page 177 and 
"Dummy Arguments in a Function Subprogram” on page 116. 
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EQUIVALENCE 


EQUIVALENCE STATEMENT 


The EQUIVALENCE statement permits the sharing of data storage 
within a single program unit. 


Syntax 





EQUIVALENCE (listi) [, (list2) ] 





is a List of variable, array, array element, or character 
substring names. Names of dummy arguments of an external 
procedure in a subprogram must not appear in the list. Each 
pair of parentheses must contain at least two names. 


The number of subscript quantities of array elements must be 
equal to the number of dimensions of the array. If an array 
name is used without a subscript in the EQUIVALENCE 
statement, it is interpreted as a reference to the first 
element of the array. 


An array element refers to a position in the array in the 
same manner as it does in an assignment statement (that is, 
the array subscript specifies a position relative to the 
first element of each dimension of the array). 


The subscripts and substring information may be integer 
expressions containing only integer constants, or names of 
integer constants. They must not contain variables, array 
elements, or function references. 


All the named data within a single set of parentheses share the 
same storage location. When the logic of the program permits it, 
the EQUIVALENCE statement can reduce the number of bytes used by 
® sharing two or more variables of the same type or different 
noncharacter types. Character type variables and character type 
array elements can only be equivalenced with other character type 
variables, character type array elements, or portions of them. 
The length of the equivalenced entities can be different. 
Equivalence between variables implies storage sharing. 


Mathematical equivalence of variables or array elements is 
implied only when they are of the same noncharacter type, when 
they share exactly the same storage, and when the value assigned 
to the storage is of that type. 


Because arrays are stored in a predetermined order, equivalencing 
two elements of two different arrays implicitly equivalences 
other elements of the two arrays. The EQUIVALENCE statement must 
not contradict itself or any previously established equivalences. 


Two variables in one common block or in two different common 
blocks cannot be made equivalent. However, a variable in a program 
unit can be made equivalent to a variable in a common block. 

the variable that is equivalenced to a variable in the common 
block is an element of an array, the implicit equivalencing of the 
rest of the elements of the array can extend the size of the 
common block. The size of the common block cannot be extended so 
that elements are added ahead of the beginning of the established 
common block. 


Valid EQUIVALENCE Statements: 
EQUIVALENCE (CC1), AC1I33, (€CC50,50}, BC1)) 
EQUIVALENCE CA, BCL), GCC5,3)3, (DC5,10,2), E3 
EQUIVALENCE (B,D(C1)) 
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Explicit Type 
EXPLICIT TYPE STATEMENT 


The explicit type statement: @ 


» Specifies the type and length of variables, arrays, and 
user-supplied functions. 


° Specifies the dimensions of an array. 
ewe a ER Leh ees 


® Assigns tnitial data values for variables and arrays. 


L—__________- END) OF IBM EXTENSION ————————————_ 


The explicit type statement overrides the IMPLICIT statement, 
which, in turn, overrides the predefined convention for 
specifying type. 


Syntax 





type namel [, name2 ] 


type 


is COMPLEX, INTEGER, LOGICAL, REAL, DOUBLE PRECISION, or 
CHARACTER(Xlen[,]] 


where: 


¥ len 
specifies the length (number of characters between 1 
and 500). It is optional. It can be expressed as: 


6 An unsigned, nonzero, integer constant. @ 


® An expression with a positive value that contains 
integer constants, names of integer constants 
enclosed in parentheses, or an asterisk enclosed in 
parentheses. 





The length *len immediately following the word 
(x) CHARACTER is used as the length specification of any 
acter” name in the statement that has no length specification 
¢ HAS attached to it. To override a length for a particular 
r€. name, see the alternative forms of name below. If *len 
is not specified, it is assumed to be l. 


The comma in CHARACTER[¥lenl,]] must not appear if *len is 
not specified. It is optional if *len is specified. 


If the length specification (*¥len) is a constant, it must be an 
unsigned, nonzero, integer constant. If the length specification 
is an arithmetic expression enclosed in parentheses, it can 
contain only integer constants or names of integer constants. 
Function and array element references must not appear in the 
expression. The value of the expression must be a positive, 
nonzero, integer constant. 


If the length specification is an asterisk (%), name must be the 


name of a character constant. The character constant assumes the 
length of its corresponding expression in a PARAMETER statement. 


If the CHARACTER statement is in a subprogram, the asterisk (*) 
must. be associated with a name that is a dummy argument. The dummy 
argument assumes the length of the associated actual argument for 
each reference of the subroutine. 


The length specified Cor assigned by default) with an array name 
is the Length of each element of the array. 
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If a character function has the length specified as an asterisk 
(*)} in a program unit, the function name must appear as the name 
of a function in a FUNCTION or ENTRY statement in the same program 
unit. When a reference to such a function is executed, the 
function assumes the length specified in the calling program 
unit. The length of a CHARACTER statement function cannot be 
specified by an asterisk (*) but can be an integer constant 
expression. 


The length specified for a character function in the program unit 
that refers to the function must be an expression involving only 

integer constants or names of integer constants. This length must 
agree with the length specified in the subprogram that specifies 

the function if the length is not specified as an asterisk. 


LD GX Ro 


type 
is COMPLEXE ¥len1lJ], INTEGER[¥leniJ, LOGICAL([X*¥lenil]J, or 
REALL ¥lenij 


where: 


¥lenl 
is optional and represents one of the permissible 
length specifications for its associated type as 
described in Figure 4 on page 18. 


—___—- END. OF IBM EXTENSION —————_—_—__" 


name 





iS a variable, array, function name, dummy procedure name or 
the name of a constant. It can have the form: 


al(dim)] 
or 
al(dim) ][X¥len2] 


where: 


is a variable, array, function name, or dummy procedure 
name. 


a. 
3 


is optional. dim may only be specified for arrays. It is 
composed of one through seven dimension bounds, 
separated by commas, that represent the limits for each 
subscript of the array in the form: 


el:e2 


or 


is the lower dimension bound. It is optional. If 
el (with its following colon) is not specified, 
its value is assumed to be 1. 


is the upper dimension bound and must always be 
specified. 


(See "Size and Type Declaration of an Array” on page 21 for 
rules about dimension bounds. ) 


If a specific intrinsic function name appears in an explicit 


specification statement that causes a conflict with the type 
specified for this function in "Appendix C. IBM and ANS 
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Explicit Type 


function property in the program unit. A type statement that 
confirms the type of an intrinsic function is permitted. Ifa 
generic function name appears in an explicit specification 
statement, it does not lose its generic property in the 
program unit. 





FORTRAN Features” on page 222, the name loses its intrinsic e 


*¥len2 
overrides the length as specified in the statement by 
CHARACTER[EX¥lenL,]]. 


ren emnennenmns LEM EXTEN 


name 





iS a variable, array, function name, dummy procedure name 
or the name of a constant. It can have the form: 


alX¥len3J][Cdim)] 
or 
al®len3sJCCdimd) €711,12,3356+-2in7] 
where: 


is a variable, array, function name, or dummy 
procedure name. 


¥len3 
overrides the length as specified in the initial 
keyword of the statement as COMPLEX, INTEGER, 
LOGICAL, REAL, COMPLEXE ¥lenl], INTEGER(X¥lenIi], 
LOGICALEX¥lenlJ, or REALE Xlen1] 





o 
3 


is optional. dim may only be specified for arrays. It 
is composed of one through seven dimension bounds, 
separated by commas, that represent the limits for 
each subscript of the array. See the description of 
dim above. 


11,12,13;, eee in 
are optional and represent initial data values. 


Dummy arguments and names of constants, functions, and 
statement functions, may not be assigned initial values. 
Initial data values may not be assigned for any items of type 
DOUBLE PRECISIGN or CHARACTER. 


Initial data values may be assigned to variables or arrays that 
are not dummy arguments or in blank common, by use of in, where 
in is a constant or list of constants separated by commas. Each 
in provides initialization only for the immediately preceding 
variable or array. Lists of constants are used only to assign 
initial values to array elements. The data must be of the same 
type as the variable or array, except that hexadecimal data may 


also be used. 


Note: If hexadecimal data is used, the hexadecimal constant 
form must be followed (see "Hexadecimal Constants” on page 16). 
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Successive occurrences of the same constant can be represented 
by the form iXconstant, as in the DATA statement. If initial 
data values are assigned to an array in an explicit 
specification statement, the dimension information for the 
array must be in the explicit specification statement or ina 
preceding DIMENSION or COMMON statement. 


eee END OF TBM EXTENSION —— ee 





Valid Explicit Type Statements: 

CHARACTERX8APPLES 

DATA APPLES/*APPLES *7 
Ss — 1D ERI Oe ee 

COMPLEX C,D/(2.154.7)7;E*16 

INTEGERX®2 ITEM/76/7, VALUE 

REAL AC5,5)/20%6.9E2,4%1.07,B(0100)/100*%0.07,TEST¥8(5)/5*0.0D0/ 

REAL®8 BAKER, HOLD, VALUEX4, ITEM(5,5) 


_—_______________. END OF IBM EXTENSION ———————————_ 
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EXTERNAL STATEMENT 
The EXTERNAL statement identifies a user-supplied subprogram name @ 
and permits such a name to be used as an actual argument. 


Syntax 





EXTERNAL namel [, name2 ] 


name 


is a name of a user-supplied subprogram (function or 
subroutine) that is passed as an argument to another 
Subprogram. 


EXTERNAL is a specification statement and must precede statement 
function definitions and all executable statements. 


Statement function names cannot appear in an EXTERNAL statement. 
If the name of a VS FORTRAN-supplied function (that is, intrinsic 
function) is used in an EXTERNAL statement, the function is no 
longer recognized as being an intrinsic function when it appears 
as a function reference. Instead, it 1s assumed that the function 
75 supplied by the user. 


The same name may not appear in both an EXTERNAL and an INTRINSIC 
statement. 


The name of any subprogram that i5 passed as an argument to 
another subprogram must appear in an EXTERNAL or INTRINSIC 
statement in the calling program. 

Valid EXTERNAL Statement: 


EXTERNAL TREES 
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® FORMAT STATEMENT 


[hs 
—~ 
mH [—~h 


FORMAT 


The FORMAT statement is used with the input/output list in the 
READ and WRITE statements to specify the structure of FORTRAN 
records and the form of the data fields within the records. 


Syntax 





FORMAT (fl €, £2 € +. 


.» fn are format codes. 


Code Description 


Integer data fields 
Integer data fields 


Ios | | 
me | eH 
l= l= 


Double precision data fields 


ia 
iE 
lo. 


Real data fields 
Real data fields 


yes Io {io | fo 

23 mM m 

ie l= = I= 

io. lo. 0. io. 
iD 


Real data fields 
Real data fields 
aGu.dEe Real data fields 


Scale factor 





Logical data fields 

Character data fields 

Character data fields 

Literal data (character constant) 


Literal data €Hollerith constant) 


Input: Skip a field 
Output: Fill with blanks 


Transfer of data starts in current 
position 


Transfer of data starts r characters to 
the left of current position 


Transfer of data starts r characters to 
the right of current position 


Stssas Group format specification 


Display of optional plus sign is 
restored 
“= Plus sign 18 produced in output 


nP 

alw 

oe Blanks are ignored in input 

fae Blanks are treated as zeros in input 


group 





Plus sign is not produced in output 


wi w 
mT Se 
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slash [2 transfer on the current record is 
ended 
colon Format control is terminated if there 
ie no more items in the input/output 
ist 


———— ee EBM EXTENSION — 















—_—______________. FND OF IBM EXTENSION ————————_—_—_—_____" 





a 
1S optional and is a repeat count, an unsigned, nonzero, 
integer constant used to denote the number of times the 
format code or group is to be used. If a is omitted, the code 
or group 15 used only once. © 

W 
1S an unsigned, nonzero, integer constant that specifies the 
width of the field. 

m 
1S an unsigned integer constant that specifies the number of 
digits to be printed. 

d 
15 an unsigned integer constant that specifies the number of 
digits to the right of the decimal point. 

e 
15 an unsigned, nonzero, integer constant that specifies the 
number of digits in the exponent field. 

n 
is an Coptionally) signed integer constant that specifies a 
scale factor to be applied. 

Fr 


iS an unsigned, nonzero, integer constant that specifies a 
character position ina record. 


Cone 3 


15 a group format specification. Within the parentheses are 
format codes or additional levels of groups, separated by 
commas, slashes, or colons. Commas are optional before or 
after a slash and before or after a colon, if the slash or 
colon 15 not part of a character constant. 


The FORMAT statement is used with READ and WRITE statements for 
internal and external files. The external files must be connected 

for SEQUENTIAL or DIRECT access. In the FORMAT statement, the data 
fields are described with format codes, and the order in which 

these format codes are specified determines the structure of the 
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FORTRAN records. The I/0 list gives the names of the data items 
that make up the record. The length of the list, in conjunction 
with the FORMAT statement, specifies the length of the record (see 
"Forms of a FORMAT Statement" on page 95). 


The format codes delimited by left and right parentheses may 
appear as a character constant in the format specification of the 
READ or WRITE statement, instead of in a separate FORMAT 
statement. For example, 


READ CUNIT=5,FMT='C1I3,F5.2,E10.3,G10.3)'IN,A,B,C 
READ (5,'°C1I3,F5.2,E190.3,G610.3)")3N,A,B,C 


Throughout this section, the examples show punched card input and 
printed line output. However, the concepts apply to all 
input/output media. In the examples, the character b represents a 
blank. 


General Rules for Data Conversion 


The following is a list of general rules for using the FORMAT 
statement or a format in a READ or WRITE statement. 


° FORMAT statements are not executed; their function is to 
supply information to the object program. They may be placed 
anywhere in a program unit other than ina block data 
Subprogram, subject to the rules for the placement of the 
PROGRAM, FUNCTION, SUBROUTINE, and END statements. 


e Complex data in records require two successive D, E, G, or F 
format codes. 


ees TEM EXT ENCLOn a ey 
VS FORTRAN also accepts the Q format code for complex data. 


Lm END OF IBM EXTENSION ——————————————__——" 


The two codes may be different and the format codes T, TL, TR, 
X, 4, ?> S» SP, SS, P, BN, BZ, H,> or a literal enclosed in 
apostrophes may appear between the two codes. 


® When defining a FORTRAN record by a FORMAT, it is important to 
consider the maximum size record allowed on the input/output 
medium. For example, if a FORTRAN record is to be punched for 
output, the record should not be longer than 80 characters. If 
it 1s to be printed, it should not be longer than the 
printer's line length. For input, the FORMAT should not 
define a FORTRAN record longer than the actual input record. 


® When formatted records are prepared for printing at a printer 
or terminal, the first character of the record is not printed 
or displayed. It is treated as a carrier control character. It 
can be specified in a FORMAT statement with either of two 
forms of literal data: 


"*x' or IlHx 


where x 1s one of the following: 


x Meaning 

blank Advance one line before printing. 

0 Advance two lines before printing. 
1 Advance to first line of next page. 
+ Do not advance before printing. 


(Overstrike the current line.) 


For media other than a printer or terminal, the first 
character of the record is treated as data. 
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° If the 1/0 list is omitted from the READ or WRITE statement, 
the following general rules apply: 





_ Input: A record is skipped. 


_ Output: A blank record is written unless the FORMAT 
statement contains an H format code or a character 
constant (see "H Format Code and Character Constants" on 
page 105). 


To produce a blank record on output, an empty format 
specification of the form FORMAT ( ) may be used. 


6 To illustrate the nesting of group format specifications, the 
following statements are both valid: 


FORMAT Rc ce PRC ewe 6 PBR cee Pr sie pO owe dae vad? 
or 
FORMAT Les wPOE eels PORE IDPs ee or eee Se eee 


© Names of constants must not be a part of a format 
specification (see "PARAMETER Statement" on page 141). 


© With numeric data format codes I, F, E, G, and D, the 
following general rules apply: 


_ Input: Leading blanks are not significant. The 
interpretation of blanks, other than leading blanks, is 
determined by a combination of the value of the BLANK= 
specifier given when the file was connected (see "OPEN 
Statement" on page 137) and any BN or BZ blank control 
that is currently in effect. Plus signs may be omitted. A 
field of all blanks is considered to be zero. 





With F, E, G, and D format codes, a decimal point 
appearing in the input field overrides the portion of a 
format code that specifies the decimal point location. 
The input field may have more digits than VS FORTRAN uses 
to approximate the value. 


_ Output: The representation of a positive or zero internal 
value in the field may be prefixed with a plus, as 
controlled by the S, SP, and SS format codes. The 
representation of a negative internal value in the field 
is prefixed with a minus. A negative zero is not produced. 


The representation is right-justified in the field. If 
the number of characters produced by the editing is 
smaller than the field width, leading blanks are inserted 
in the field. 


If the number of characters produced exceeds the field 
width or if an exponent exceeds its specified length 
using the Ew.dEe or Gw.aEe format codes, the entire field 
of width wis filled with asterisks. However, if the field 
width 15 not exceeded when optional characters are 
omitted, asterisks are not produced. When an SP format 
code is in effect, a plus is not optional. 


——— ee (6 PALES, SSS 


With VS FORTRAN, format code Q makes the following 
additional rules apply: 


_ Input: With @ editing, a decimal point appearing in the 
input field overrides the portion of a format code that 
specifies the decimal point location. The input field 
may have more digits than VS FORTRAN uses to approximate 
the value. 
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asa Output: If the number of characters produced exceeds the 
field width or if an exponent exceeds its specified 
rd length using the Ew.dDe or Qw.d format codes, the entire 
field of widthw is filled with asterisks. However, if 
the field width is not exceeded when optional characters 
are omitted, asterisks are not produced. When an SP 
format code is in effect, a plus is not optional. 


L—____ Enn OF IBM EXTENSION —————————_ 


Forms of a FORMAT Statement 


All the format codes in a FORMAT statement are enclosed in 
parentheses. Within these parentheses, the format codes are 
delimited by commas. The comma may be omitted between a P format 
code and an immediately following F, E, D, or G format code, and 
before or after a colon or slash format code. 


Execution of a formatted READ or formatted WRITE statement 
initiates format control. Each action of format control depends 
on information provided jointly by the I/0 list, if one exists, 
and the format specification. If there is an I/0 list, there must 
be at least one I, D, E, F, A,» Gs, or L format code in the format 
specification. 


" ieeieanemmeemameemmenemmnemnemmereain: t >|) TE. 8 aaa eam 


The @ and Z format codes may also appear in the format 
specification. 


Lone END OF IBM EXTENSION ————————— 


There is no I/0 list item corresponding to the format codes: T, 
TL, TR» X, H» literals enclosed in apostrophes, S, SP, SS, BN, BZ, 
P, the slash (7), or the colon (:). These communicate information 
directly to the record. 





Whenever anlI, D, E, F, A, G, or L format code is encountered, 
format control determines whether there is a corresponding 
element in the I/0 list. 


eee TERM EXPEL 
With VS FORTRAN, the list of format codes includes Q and Z. 


Whenever a @ or Z code is encountered, format control determines 
whether there is a corresponding element in the I/0 list. 


The comma may be omitted between a P format code and an 
immediately following Q format code. 


| rnennnenennnees END OF IBM EXTENSION ———————_———_—_— 


If there is a corresponding element, appropriately converted 
information is transmitted. If there is no corresponding element, 
the format control terminates, even if there is an unsatisfied 
repeat count. 


When format control reaches the last (outer) right parenthesis of 
the format specification, a test is made to determine whether 
another element is specified in the 1/0 list. If not, control 
terminates. If another list element is specified, the format 
control starts a new record. Control then reverts to that group 
specification terminated by the last preceding right parenthesis, 
including its group repeat count, if any» or, if no group 
specification exists, then to the first left parenthesis of the 
format specification. Such a group specification must include a 
closing right parenthesis. If no group specification exists, 
control reverts to the first left parenthesis of the format 
specification. 





VS FORTRAN Statements 95 





FORMAT 


I Format Code 


F Format Code 





For example, assume the following FORMAT statements: 
70 FORMAT (15,2€13,F5.2),14,F3.1) 
O0 FORMAT (13,F5.2,2C13,2F3.1)3) 
96 FORMAT (€23,F5.2,21955F3.1) 


With additional elements in the I/O list after control has reached 
the last right parenthesis of each, control would revert to the 
2(13,F5.2) specification in the case of statement 70; to 
2(I3,2F3.1) in the case of statement 80; and to the beginning of 
ane format specification, I3,F5.2,... in the case of statement 


The question of whether there are further elements in the I/O list 
1s asked only when an I, D, E, F, A, G, or L format code or the 
final right parenthesis of the format specification is 
encountered. 


or ee en a eres 


The question 1s also asked when a Q or Z format code is 
encountered. 


$$ END OF IBM EXTENSION —————__—_" 


Before this 15 done, T, TL, TR» X, and H codes, literals enclosed 
In apostrophes, colons, and slashes are processed. If there are 
fewer elements in the I/70 list than there are format codes, the 
remaining format codes are ignored. 


The I format code edits integer data. For example, if a READ 
statement refers to a FORMAT statement containing I format codes, 
the input data is stored in internal storage in integer format. 
The magnitude of the data to be transmitted must not exceed the 
maximum magnitude of an integer constant. 


INPUT: Leading blanks ina field of the input line are interpreted 
as zeros. Embedded and trailing blanks are treated as indicated in 
the general rules for numeric fields described under "General 
Rules for Data Conversion" on page 93. If the form Iw.m is used, 
the value of m has no effect. 


OUTPUT: If the number of significant digits and sign required to 
represent the quantity in the byte is less than w, the leftmost 
print positions are filled with blanks. If it 1s greater than w, 
asterisks are printed instead of the number. If the form Ivu.m is 
used, the output is the same as the Iw form, except that the 
unsigned integer constant consists of at least m digits and, if 
necessary, has leading zeros. The value of m must not exceed the 
value of w. If mis zero and the value of the internal datum is 
zero, the output field consists of only blank characters, 
regardless of the sign control in effect. 


The Fu.d format code edits real data. It indicates that the field 
occupies Ww positions, the fractional part of which consists of d 
digits. 


INPUT: The input field consists of an optional sign, followed by a 
string of digits optionally containing a decimal point. If the 
decimal point is omitted, the rightmost d digits of the string, 
with leading zeros assumed if necessary, are interpreted as the 
fractional part of the value represented. 
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The input field may have more digits than VS FORTRAN uses to 
approximate the value of the datum. The basic form may be followed 
by an exponent of one of the following forms: 


© Signed integer constant. 


© E followed by zero or more blanks, followed by an optionally 
signed integer constant. 


® D followed by zero or more blanks, followed by an optionally 
signed integer constant. 


os I EXO Se ee et 


® Q followed by zero or more blanks, followed by an optionally 
signed integer constant. 


Ln END OF IBM EXTENSION ————— 


An exponent containing a Dis processed identically to an exponent 
containing an E. 


OUTPUT: The output field consists of blanks, if necessary, 
followed by a minus sign if the internal value 15 negative, or an 
optional plus sign otherwise, followed by a string of digits that 
contains a decimal point and represents the magnitude of the 
internal value, as modified by the established scale factor and 
rounded to d fractional digits. Leading zeros are not provided, 
except for an optional zero immediately to the left of the decimal 
point if the magnitude of the value in the output field 15 less 
than one. The optional zero appears if there would otherwise be no 
digits in the output field. 


D, Er, and Q Format Codes 


The Dw.d, Ew.d, Ew.dEe format codes edit real, complex, or double 
precision data. 


a sOIBM EXTENSION ————____, 


The Ew.dDe and Qw.d format codes edit extended precision data in 
addition to real, complex, and double precision data. 


= EW OF LB EXtChoL08 OO 


The external field occupies w positions, the fractional part of 
which consists of d digits Cunless a scale factor greater than one 
is in effect). The exponent part consists of e digits. (The e has 
no effect on input. ) 


INPUT: The input field may have more digits than VS FORTRAN uses 
to approximate the value of the datum. 


Input datum must be a number, which, optionally, may have a Dor E 
exponent, or may be omitted from the exponent if the exponent is 
signed. 


——————— = IBM EXTENSION ey 
It may also have a Q exponent. 


———— ee END OF IBM EXTENSION ——— 


All exponents must be preceded by a constant; that is» an 
optional sign followed by at least one decimal digit with or 
without decimal point. If the decimal point 15 present, its 
position overrides the position indicated by the d portion of the 
format code, and the number of positions specified by w must 
include a place for it. If the data has an exponent anda P format 
code 1s in effect, the scale factor 15 ignored. 
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G Format Code 


The interpretation of blanks is explained in "General Rules for 
Data Conversion™ on page 93. 


The Input datum may have an exponent of any form. The input datum 
is converted to the length of the variable as specified in the I/0 
list. The e of the exponent in the format code has no effect on 
Input. 


OUTPUT: For data written under aD or E format code, unless a 
P-scale factor is in effect, output consists of an optional sign 
Crequired for negative values), a decimal point, the number of 
significant digits specified by d, anda D or E exponent requiring 
four positions. 


memes TE CATENS. Un So 


For data written under a Q format code, unless a P-scale factor 
is in effect, output consists of an optional sign Crequired for 
negative values), a decimal point, the number of significant 
digits specified by d, anda Q exponent requiring four 
positions. 


-—__________-. FND. OF IBM EXTENSION ——————————_——_! 


On output, w must provide sufficient space for an integer sagment 
if 1% is other than zero, a fractional segment containing d 
digits, a decimal point, and, if the output value is negative, a 
sion. If insufficient space 15 provided for the intecaer portion, 
including the decimal point and sign Cif any), asterisks are 
trritten instead of data. If excess Space 1s provided, the number 
is preceded by blanks. 


The fractional segment is rounded to d digits. A zero is placed to 
the left of the decimal point, if the output field consists only 
of a fractional segment, and if additional space is available. If 
the entire value is zero, a zero is printed before the decimal 
point. 


The G format code is a generalized code used to transmit real cata 
according to the type specification of the corresponding variable 
in the [40 list. The Gu.d and Gw.dEe edit descriptors indicate 
that the external field occupies wy positions. Unless a scale 
factor greater than one 1s in effect, the fractional part of w 
consists of d digits. The exponent part consists of e digits. 


THEUT: Tha form of the input field is the same as for the F format 
code. 


GCUTFUT: The method of representation in the output field depends 
on the magnitude of the data being edited. 


For example, letting N be the magnitude of the internal data, 
if N < 0.1 or N 2 10d 

(where k 15 the scale factor currently in effect), then: 

e Gu.d output editing is the same as kPEw.d output editing. 


6 Gw.dEe output editing is the same as kKPEw.dEe output editing. 
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If N is greater than or equal to 0.1 and less than 10**d, the 


scale factor has no effect, and the value of N determines the 
editing as follows: 


Magnitude of Data Equivalent Conversion 
0.1 


SNS i Plnen).d> bt 5") 


LS N < 10 Ptwen),fd-ld,» nt" b'? 


10%%(d-2) < N < 10%*%(d-1) | FOw-n).1, n('b') 





10**Cd-1) N < 10*X%d F(w-n).0, nt"b* 2 


hey 


means blank. 


IS 
= 
1D 
oy 
ul 


° e+2 for Gw.dEe 


The scale factor has no effect unless the magnitude of the data to 
be edited is outside the range that permits effective use of F 
editing. 


—— OO TEM EXTENSION 
The letter 9 is used for the exponent of real data. 


The G format code may be used to transmit integer or logical 
data according to the type specification of the corresponding 
variable in the I/70 list. 


If the variable in the I/0 list is integer or logical, the d 
portion of the format code, specifying the number of 
Significant digits, can be omitted; if it 15 given, it 1s 
ignored. 


L______- END) OF IBM EXTENSION ——————————_" 


AP format code specifies a scale factor n, where n is an 
optionally signed integer constant. The value of the scale factor 
is zero at the beginning of execution of each input/output 
statement. It applies to all subsequently interpreted F, E, D, and 
G format codes until another scale factor is encountered, then 
that scale factor is established. 


SS SS Ut ea ee Oe ee 


It also applies to all subsequently interpreted Q format codes. 


rnin END OF IBM EXTENSION —————————_—————" 


Reversion of format control does not affect the established scale 
factor. A repetition code can precede these format codes. For 
example, 2P3F7.4% is valid. A comma can be placed after the P 
format code, for example, 2P,3F/7.%. A scale factor of zero may be 
specified. 


INPUT: If an exponent is in the data field, the scale factor has 
no effect. If no exponent 1s in the field, the externally 
represented number equals the internally represented number 
multiplied by 10**n for the external representation. 
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For example, if the input data is in the form 





XX. XXX 
and is to be used internally in the form 
~XXXxXXX 
then the format code used to effect this change is 
ZPF7.4 
which may also be written 2P,F7.4%. 
Similarly, if the input data is in the form 
xX .XXxXX 
and 1s to be used internally in the form 
XXX . XX 
then the format code used to effect this change is 
-2PF7 .49 
which also may be written -2P,F7.4. 


OUTPUT: With an F format code, the internally represented number 
reduced by 10**¥n is produced. 


For example, if the number has the internal form 
.XXXXXX 


and 1s to be written in the form 





xX. XXX 
the format code used to effect this change is 

2PF7 .% 
which also may be written 2P,F7.4%. 
On output with E and D format codes, the value of the internally 
represented number 15 not changed. When the decimal point is moved 
according to the d of the format code, the exponent i5 adjusted so 
that the value of the externally represented number is not 
multiplied by 10**n. 
en Ih EAN. 


On output with Q format code, the value of the internally 
represented number is not changed. 


iene ENT OF IBM EXTENSION ——————————— 
For example, if the internal number 
238.47 
were printed according to the format £10.3, it would appear as 
0.238E+03 


If it were printed according to the format 1PE10.3 or 1P,E10.3 it 
would appear as 


2. d59ET02 





On output with a G format code, the effect of the scale factor is 
suspended unless the magnitude of the internally represented 
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number (m) is outside the range that permits the use of F format 
code editing. This range for use of the F format code 15 


oL Sms 10 ¥X o 


where dis the number of digits as specified in the G format code 
Gu.d. 


If .1 < m < 10%%d and the F format code is used, there is no 
difference between G format code With a scale factor and G format 
code Without a scale factor. 


However, if m 2 10*¥d or < 0.1, the scale factor moves the 
decimal point to the right or left. 


The following example illustrates the difference between G format 
code with and without a scale factor: 


If A is initially set to 100 and multiplied by 10 each time, and: 


76 PORTIAT €° *sG13.5,1P615.5,2F615.35) 
WRITE (€6,76) A,A,A 


the result is: 


No Scale Factor Scale Factor = 1 Scale Factor = 2 

100.00 100.00 100.00 

1000.0 1000.0 1000.0 

10000. 10000. 10000. 
0.10000E+06 1.00000E+05 10.0000E+04 
0.10000E+07 1.00000E+06 10.0000E+05 


a ia kaa cece Es UR 8G SN capaci scan acer amr mean e aR ia 


The Z format code transmits hexadecimal data. 


INPUT: Scanning of the input field proceeds from right to left. 
Leading, embedded, and trailing blanks in the field are treated 
as zeros. One byte in internal storage contains two hexadecimal 
digits; thus, if an input field contains an odd number of 
digits, the number is padded on the left with a hexadecimal zero 
when it is stored. If the storage area is too small for the 
Input data, the data is truncated and high-order digits are 
lost. 


OUTPUT: If the number of digits in the byte is less than w, the 
leftmost print positions are filled with blanks. If the number 
of digits in the byte 1s greater than w, the leftmost digits are 
truncated and the rest of the number is printed. 


—________- FND OF IBM EXTENSION ————————————_—_—__ 


Numeric Format Code Examples 


Exarnple 1: 


The following example illustrates the use of format codes I, F, D, 
Es and G. 


75 FORMAT Ci3sF5.2,5610.3,610.3) 
READ €5,75) N,A,B,C 
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Explanation: 


° Four input fields are described in the FORMAT statement and 
four variables are in the I/0 list. Therefore, each time the 
READ statement is executed, one input line is read from the 
file connected to unit number 5. 


® When an input line is read, the number in the first field of 
the line (three columns) is stored in integer format in 
location N. The number in the second field of the input line 
(five columns) is stored in real format in location A, and so 
on. 


If there were one more variable in the I/0 list, say M, 
another line would be read and the information in the first 
three columns of that line would be stored in integer format 
in location M. The rest of the line would be ignored. 


° If there were one fewer variable in the list (say C is 
omitted), format code G10.3 would be ignored. 


® This FORMAT statement defines only one record format. "Forms 


of a FORMAT Statement™ on page 95 explains how to define more 
than one record format ina FORMAT statement. 


—————— ee FFM EXTENSION 
Example 2: 


This example illustrates the use of the Z, D, and G format 
codes. 


Assume that the following statements are given: 





75 FORMAT (Z24,D10.3,2G610.53) : 


READ (5,75) AsB,G;D 
where A, C, and D are REAL*% and B is REAL*8 and that, on 
successive executions of the READ statement, the following 
input lines are read: 


Column: 1 5 15 de 35 


v v v v v 
b3F1156432D+02276.38E+15bbbbbbbbbb 


Input 

2AF3155381+02b382506Et+28276.38Et15 
Lines 

3ACb346.18D-03485.322836276.38E+15 
Format: Z4 Di0.3 G10.3 GL0.3 


Then the variables A, B, C, and D receive values as if the 
following data fields had been supplied: 


A B C D 

O3F1 156.432D02 216.<S6ET15 000000.000 
2AF3 155.381420 382.506E+28 2?6,906F15 
SACO 346.18D-03 485.322836 276.38E?15 


Explanation: 


° Leading blanks in an input field are treated as zeros. If 
all other blanks are assumed to be treated as zeros, because 
the value for B on the second input line was not right 
justified in the field, the exponent is 20, not 2. } 
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® Values read into the variables C and D with a G format code 


are converted according to the type of the corresponding 
variable in the I/0 list. 


CL MEND OF IBM EXTENSION ————— 
Example 3: 


This example illustrates the use of the literal enclosed in 
apostrophes and the F, E, G, and I format codes. 


Assume that the following statements are given: 
76 FORMAT C(*9*,F6.2,E12.3,614.6,15) 
WRITE (6,76)A,B,C,N 


and that the variables A, B, C, and N have the following values on 
successive executions of the WRITE statement: 


A B C N 
034.40 123.380E+02 123.380E+02 031 
i ae | L156.TEt02 123456789. 130 
-354.32 834 .621E-03 123% .56789 428 
OL.152 83.121E+06 123380.D+02 000 


Then, the following lines are printed by successive executions of 
the WRITE statement: 


Print 
Column: 1 9 21 35 
v Vv Vv Vv 
34.40 S.1Z3E+65 12338.0 31 
Ss Ue 0.116E+06 0.123457E 09 130 
HR KKK 0.835E+00 1234.57 428 


ae O0.831E+08 0.123380E 08 0 


Explanation: 


6 The integer portion of the third value of A exceeds the format 
code specification, so asterisks are printed instead of a 
value. The fractional portion of the fourth value of A exceeds 
the format code specification, so the fractional portion is 
rounded. 


° For the variable B, the decimal point is printed to the left 
of the first significant digit and only three significant 
digits are printed because of the format code E12.3. Excess 
digits are rounded off from the right. 


e The values of the variable C are printed according to the 
format specification G14.6. The d specification, which in 
this case is 6, determines the number of digits to be printed 
and whether the number should be printed with a decimal 
exponent. Values greater than or equal to 0.1 and less than 
1000000 are printed without a decimal exponent in this 
example. Thus, the first and third values have no exponent. 
The second and fourth values are greater than 1000000, so they 
are printed with an exponent. 
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L Format Code 


A Format Code 








The L format code transmits logical variables. @ 


INPUT: The input field must consist of either zeros or blanks with 
an optional decimal point, followed by a T or F, followed by 
optional characters, for true and false, respectively. The T or F 
assigns a value of true or false to the logical variable in the 
input list. The logical constants .TRUE. and .FALSE. are 
acceptable input forms. 


OUTPUT: A T or F is inserted in the output record depending upon 
whether the value of the logical variable in the I/0 list was true 
or false, respectively. The single character is right justified 
in the output field and preceded by w-l blanks. 


The A format code transmits character data. Each alphabetic or 
special character 15 given a unique internal code. Numeric 
characters are transmitted without alteration; they are not 
converted into a form suitable for computation. Thus, the A format 
code can be used for numeric fields, but not for numeric fields 
requiring arithmetic. 


If wis specified, the field consists of w characters. 


If the number of characters w 1s not specified with the format 
code A, the number of characters in the field is the length of the 
character item in input/output list. 


INPUT: The maximum number of characters stored in internal 
storage depends on the length of the variable in the I/0 list. If 
wis greater than the variable length, say v, then the leftmost 

w-v characters in the field of the input line are skipped and 

remaining v characters are read and stored in the variable. If w 

is less than v, then w characters from the field in the input line 

are read and remaining rightmost characters in the variable are 

filled with blanks. 











OUTPUT: If wis greater than the length v of the variable in the 
I70 list, then the printed field contains v characters 
right-justified in the field, preceded by leading blanks. If wis 
less than v, the leftmost w characters from the variable are 
printed and the rest of the data is truncated. 


Example 1: 


Assume that B has been specified as CHARACTER¥8, that N and M are 
CHARACTERX4, and that the following statements are given: 


Zo FORMAT C3A7) 
READ (5,25) B, N» M 


When the READ statement is executed, one input line is read from 
the data set associated with data set reference number 5 into the 
variables B, N, and M in the format specified by FORMAT statement 
number 25. The following 11st shows the values stored for the 
given input lines (b represents a blank). 


Input Line B N M 
ABCDEFG46bATb11234567 ABCDEFGb ATbl 6567 
HIJKLMN765463213334445 HIJKLMNb 4321 6445 
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Example 2: 


rd Assume that A and B are character variables of length 4, that C is 
a character variable of length 8,» and that the following 
statements are given: 


26 FORMAT CA6,A5,A6) 
WRITE (6,26) A,B,C 


When the WRITE statement is executed, one line is written on the 
data set associated with data set reference number 6 from the 
variables A, B, and C in the format specified by FORMAT statement 
26. The printed output for values of A, B, and C is as follows (b 
represents a blank): 


A B C Printed Line 
A1LB2 C3D4 E5F6G/7H8 bbAILB2bC3D4¢E5F6G7 


H Format Code and Character Constants 


Character constants can appear in a FORMAT statement in one of two 
ways: following the H format code or enclosed in apostrophes. For 
example, the following FORMAT statements are equivalent. 


Z5 FORMAT (22H 1982 INVENTORY REPORT) 

25 FORMAT C€* 1982 INVENTORY REPORT'*) 
No item in the output list corresponds to the character constant. 
The constant is written directly from the FORMAT statement. (The 


FORMAT statement can contain other types of format code with 
corresponding variables in the I/0 list.) 





INPUT: Character constants cannot appear ina format used for 
input. 


OUTPUT: The character constant from the FORMAT statement is 
written on the output file. CIf the H format code is used, the w 
characters following the H are written. If apostrophes are used, 
the characters enclosed in apostrophes are written.) For example, 
the following statements: 


8 FORMAT CIG4HOMEAN AVERAGE:, F8&.4%) 
WRITE €6,8) AVRGE 


would write the following record if the value of AVRGE were 
42.5956" 


MEAN AVERAGE: 12.3456 


The first character of the output data record in this example is 
the carrier control character for printed output. One line is 
skipped before printing, and the carrier control character does 
not appear in the printed line. 


Note: If the character constant is enclosed in apostrophes, an 
apostrophe character in the data is represented by two successive 
apostrophes. For example, DON'T would be represented as 'DON''T!®. 
The two successive apostrophes are counted as one character. A 
maximum of 255 characters can be specified ina character ora 
Hollerith constant. 
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X Format Code 


T Format Code 





The X format code specifies a field of w characters to be skipped 
on input or filled with blanks on output if the field was not 
previously filled. On output, an X format code does not affect the 
length of a record. For example, the following statements: 


® Read the first ten characters of the input line into variable 
® Skip over the next ten characters without transmission. 
% Read the next four fields of ten characters each into the 


variables J, K, L, and M. 
5 FORMAT €I110,10X,4110) 
READ C555) Is JdsK-t om 


The T format code specifies the position in the FORTRAN record at 
which the transfer of data is to begin. 


To illustrate the use of the T code, the following statements: 
5 FORMAT (€T40,'1981 STATISTICAL REPORT’, T80, 
X ‘DECEMBER',T1,'OPART NO. 10095') 
WRITE (6,5) 
print the following: 


Print 
Position: l 39 79 


v v v 
PART NO. 10095 1981 STATISTICAL REPORT DECEMBER 


The T format code can be used ina FORMAT statement with any type 
of format code, as, for example, with FORMAT ('0',T40,1I5). 


INPUT: The T format code allows portions of a record to be 
processed more than once, possibly with different format codes. 


OUTPUT: The record is assumed to be initially filled with blank 
characters, and the T format code can replace or skip characters. 
On output, a T format code does not affect the length of a record. 


(For printed output, the first character of the output data record 
15S a carrier control character and is not printed. Thus, for 
example, if T50,'Z' is specified in a FORMAT statement, a Z will 
be the 50th character of the output record, but it will appear in 
the 49th print position.) 


TL AND TR FORMAT CODES: The TL and TR format codes specify how 
many characters left (TL) or right (CTR) from the current character 
position the transfer of data is to begin. With TL format code, if 
the current position is less than or equal to the position 
specified with TL, the next character transmitted will be placed 
in position 1 (that 1s, the carrier control position). 


The TL and TR format codes can be used in a FORMAT statement with 
any type of format code. On output, these format codes do not 
affect the length of a record. 
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Group Format Specification 


© The group format specification repeats a set of format codes and 
controls the order in which the format codes are used. 


The group repeat count a is the same as the repeat indicator a 
that can be placed in front of other format codes. For example, 
the following statements are equivalent: 


10 FORMAT (13,2(14%,15),16) 
10 FORMAT (13,(014¢,15,14,15),16) 


Group repeat specifications control the order in which format 
codes are used, since control returns to the last group repeat 
specification when there are more items in the [70 list than there 
are format codes in the FORMAT statement (see "Forms of a FORMAT 
Statement" on page 95). Thus, in the previous example, if there 
were more than six items in the I70 list, control would return to 
the group repeat count 2 that precedes the specification (14,15). 


If the group repeat count is omitted, a count of 1 is assumed. For 
example, the statements: 


L? FORMAT (13,(€F6.2,D10.3)) 
READ (5,15) N,A,B,C,D,E 


read values from the first record for N, A, and B, according to 
the format codes I3, F6.2, and D10.3, respectively. Then, because 
the I/40 list is not exhausted, control returns to the last group 
repeat specification, the next record 15 read, and values are 
transmitted to C and D according to the format codes F6.2 and 
D10.3, respectively. Since the I/0 list is still not exhausted, 
another record is read and value is transmitted to E according to 
the format code F6.2—the format code D10.3 is not used. 





All format codes can appear within the group repeat 
specification. For example, the following statement is valid: 


40 FORMAT C2I3/703F6.2,F6.37D10.3,3D190.2)) 


The first physical record, containing two data items, is 
transmitted according to the specification 213; the second, 
fourth, and so on, records, each containing four data items, are 
transmitted according to the specification 3F6.2,F6.3; and the 
third, fifth, and so on, records, each also containing four data 
items, are transmitted according to the specification 
D10.3,3D190.2, until the 1/0 list is exhausted. 


S, SP, and SS Format Codes 


The S$, SP, and 5S format codes control optional plus sign 
characters in numeric cutput fields. At the beginning of 
execution of each formatted output statement, a plus sign is 
produced in numeric output fields. If an SP format code is 
encountered ina format specification, a plus Sign 15 produced in 
any subsequent position that normally contains an optional plus 
sign. If SS is encountered, a plus sign is not produced in any 
subsequent position that normally contains an optional plus sign. 
If an S$ is encountered, the option of producing the plus sign 15 
restored. 


The S, SP, and SS format codes affect only I, F, E, G, and D 
editing during the execution of an output statement. 


ems LED EA LIND A ER Serre rons 


6 The S, SP, and SS format codes also affect Q editing. 


—_____—__—_-—- END. OF IBM EXTENSION —————————_______—__—__" 
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BN Format Code 


BZ Format Code 


Slash Format Code 





The S, SP, and SS format codes have no effect during the execution 
of an input statement. 


The BN format code Specifies the interpretation of blanks, other 
than leading blanks, in numeric input fields. At the beginning of 
each formatted input statement, such blank characters are 
interpreted as zeros or are ignored depending on the value of the 
BLANK= specifier given when the unit was connected (see "OPEN 
Statement™ on page 137). 


If BN is encountered ina format specification, all such blank 
characters in succeeding numeric input fields are ignored. 
However, a field of all blanks has the value zero. 


The BN format code affects only I, F, E, G, and D editing during 
execution of an input statement. 


rr LT Ti TR LR Sr rrr airy 


The BN format code also affects Q editing during execution of an 
input statement. 


—__________—_— END OF IBM EXTENSION ——————————_____" 


The BN format code has no effect during execution of an output 
statement. 


The BZ format code specifies the interpretation of blanks, other 
than leading blanks, in numeric input fields. 


If BZ is encountered ina format specification, all nonleading 
blank characters in succeeding numeric fields are treated as 
zeros. If no OPEN statement is given and the file is preconnected, 
all nonleading blanks in numeric fields are interpreted as zeros. 


The BZ format code affects only I, F, E, G, and D editing during 
execution of an input statement. 


————_——————_—___ IBM EXTENSION —————_____—_—_____ 


The BZ format code also affects Q editing during execution of an 
input statement. 


es END OF IBM EXTENSION — 


The BZ format code has no effect during execution of an output 
statement. 


A slash indicates the end of a FORTRAN record. 


On input froma file connected for sequential access, the 
remaining portion of the current record is skipped and the file is 
positioned at the beginning of the next record. 


On output to a file connected for sequential access, a new record 
is created. For example, on output, the statement: 


25 FORMAT CLISsF6.2/D10 . 35 F622 


describes two FORTRAN record formats. The first, third, etc., 
records are transmitted according to the format I3, F6.2 and the 
second, fourth, etc., records are transmitted according to the 
format D10.3, F6.2. 
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Consecutive slashes can be used to introduce blank output records 
or to skip input records. If there are n consecutive slashes at 
the beginning or end of a FORMAT statement, n input records are 
skipped or n blank records are inserted between output records. If 
n consecutive slashes appear anywhere else in a FORMAT statement, 
the number of records skipped or blank records inserted is n-l. 
For example, the statement: 


22 FORMAT C(1X,10I5//71X,8E14.5) 


describes three FORTRAN record formats. On output, it places a 
blank line between the line written with format 1X,101I5 and the 
line written with the format 1X,8E14.5. 


For a file connected for direct access, when a slash is 
encountered, the record number is increased by one and the file is 
positioned at the beginning of the record that has that record 
number. 


A colon terminates format control if there are no more items in 
the input/output list. The colon has no effect if there are more 
items in the input/output list. 


Example: 
Assume the following statements: 


ITABLE=10 
IELEM=0 


10 WRITE(6,1000)ITABLE,IELEM 


ITABLE=11 
ITELEM=25 


XMIN=.37E1 
XMAX=.2495E3 


20 WRITEC6,1000)ITABLE, IELEM,XMIN, XMAX 
1000 FORMATC'O TABLE NUMBER',1I5,:,*CONTAINS',I5,*ELEMENTS',:, 
1 7*MINIMUM VALUE:',E15.7, 
2 7*MAXIMUM VALUE:',E15.7) 


The WRITE statement at statement number 10 generates the 
following: 


TABLE NUMBER 10 CONTAINS 0 ELEMENTS 


The WRITE statement at statement number 20 generates the 
following: 


TABLE NUMBER 11 CONTAINS 25 ELEMENTS 
MINIMUM VALUE: -.3700000E+01 
MAXIMUM VALUE: .2495000E+03 


Reading Format Specifications at Object Time 


FORTRAN provides for variable FORMAT statements by allowing a 
format specification to be read into a character array element or 
a character variable in storage. The data in the character array 
or variable may then be used as the format specification for 
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subsequent tnputZoutput operations. The format specification may 
also be placed into the character array or variable by a DATA 
statement or an explicit specification statement in the source 
program. The following rules are applicable: 





* The format specification must be a character array or 
character variable, even if the array size is only l. 


o The format codes entered into the array or character variable 
must have the same form as a source program FORMAT statement, 
except that the word FORMAT and the statement number are 
omitted. The parentheses surrounding the format codes are 
required. 


° If a format code read at object time contains two consecutive 
apostrophes within a character field that is defined by 
apostrophes, it should be used for output only. 


’ Blank characters may precede the format specification, and 
character data may follow the right parenthesis that ends the 
format specification. 


Example: Assume the following statements: 


DIMENSION CC5) 
CHARACTER*16 FMT 
READC5, LI FMT 

1 FORMAT CA) 
READ(5,FMTJA,B, (CCI), 1=1,5) 


Assume also that the first input line associated with unit 5 
eontatns CZE10.3;, SFIS .3). 


The data on the next input line is read, converted, and stored in 
A,B, and the array C, according to the format codes 2E10.3, 
5F10.3. 








Scenic, TBM EXTENSION 


READING A FORMAT INTO A NONCHARACTER ARRAY: Assume the 
following statements: 


DIMENSION FMTC16),CC5) 
READ(C5,1) FMT 

1 FORMATCI6A1) 
READ(C5,FMTIA,B, (CCI), 1=1,5) 


Assume also that the first input line associated with unit 5 
contains (2E10.3, 5F10..8). 


The data on the next input record is read, converted, and stored 
in A, B, and the array C, according to the format codes 2E10.3, 
5SF10.8. 


{_________ END OF IBM EXTENSION ———————————————_ 


List-Directed Formatting 


The characters in one or more list-directed records constitute a 
sequence of values and value separators. The end of a record has 
the same effect as a blank character, unless it ts withina 
character constant. Any sequence of two or more consecutive 
blanks is treated as a single blank, unless it is within a 
character constant. 
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Each value is either a constant, a null value, or one of the 
forms: 


nxt 
or 
rx 


where ris an unsigned, nonzero, integer constant. The rXf form is 
equivalent to r successive appearances of the constant €; and the 
r*® form is equivalent to r successive null values. Neither of 
these forms may contain embedded blanks except where permitted 
within the constant f. 


A value separator is one of the following: 


° A comma, optionally preceded by one or more blanks and 
optionally followed by one or more blanks 


° A slash, optionally preceded by one or more blanks and 
optionally followed by one or more blanks 


° One or more blanks between two constants or following the last 
constant 


INPUT: Input forms acceptable to format specifications for a 
given type are acceptable for list-directed formatting, except as 
noted below. The form of the input value must be acceptable for 
the type of the input list item. Blanks are never treated as 
zeros, and embedded blanks are not permitted in constants, except 
Within character constants and complex constants as specified 
below. The end of a record has the effect of a blank, except when 
it appears Within a character constant. 


When the corresponding input list item is of type real or double 
precision, the input form is that of a numeric input field. A 
numeric input field is a field suitable for the F format code that 
is assumed to have no fractional digits unless a decimal point 
appears within the field. 


When the corresponding list item is of type complex, the input 
form consists of a left parenthesis, an ordered pair of numeric 
input fields separated by a comma, anda right parenthesis. The 
first numeric input field is the real part of the complex constant 
and the second is the imaginary part. Each of the numeric input 
fields may be preceded or followed by blanks. The end of a record 
may occur between the real part and the comma or between the comma 
and the imaginary part. 


When the corresponding list item is of type logical, the input 
form must not include either slashes or commas among the optional 
characters permitted for the L format code. 


When the corresponding list item is of type character, the input 
form consists of a nonempty string of characters enclosed in 
apostrophes. Each apostrophe within a character constant must be 
represented by two consecutive apostrophes without an intervening 
blank or end of record. Character constants may be continued from 
the end of one record to the beginning of the next record. The end 
of the record does not cause a blank or any other character to 
become part of the constant. The constant may be continued on as 
many records as needed. The characters blank, comma, and slash may 
appear tin character constants. 


For example, let len be the length of the list item, and let w be 
the length of the character constant. If len is less than or equal 
tow, the leftmost len characters of the constant are transmitted 
to the list item. If len is greater than w, the constant is 
transmitted to the leftmost w characters of the list item and the 
remaining len-w characters of the list item are filled with 
blanks. The effect is that the constant is assigned to the list 
item in a character assignment statement. 
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A null value is specified by having no characters between 
successive separators, by having no characters preceding the 

first value separator in the first record read by each execution 

of a list-directed input statement, or by the r* form. A null 
value has no effect on the definition status by the corresponding 
input list item. If the input list item is defined, it retains its 
previous value; if it is undefined, it remains undefined. A null 
value may not be used as either the real or imaginary part of a 
complex constant, but a single null value may represent an entire 
complex constant. The end of a record following any other 
separator, with or without separating blanks, does not specify a 
null value. 





A slash encountered as a value separator during execution of a 
list-directed input statement causes termination of execution of 
that input statement after the assignment of the previous value. 
If there are additional items in the input List, the effect is as 
if null values had been supplied for them. 


All blanks tna list-directed input record are considered part of 
some value separator, except for the following: 


e Blanks embedded in a character constant 


& Embedded blanks surrounding the real or imaginary part of a 
complex constant 


® Leading blanks in the first record read by each execution of a 
list-directed tnput statement, unless immediately followed by 
a slash or comma 


OUTPUT: Except as noted, the form of the values produced is the 
same as that required for input. With the exception of character 
constants, the values are separated by one of the following: 





° One or more blanks ©} 
© A comma, optionally preceded by one or more blanks and 
optionally followed by one or more blanks 


VS FORTRAN may begin new records as necessary but, except for 
complex constants and character constants, the end of a record 
must not occur within a constant, and blanks must not appear 
within a constant. 


Logical output constants are T for the value .TRUE. and F for the 
Valitie .FAULSE.. 


Integer output constants are produced with the effect of an Iw 
edit descriptor for some reasonable value of w. 


Real and double precision constants are produced with the effect 
of either an F format code or an E format code, depending on the 
magnitude x of the value anda range: 


10%*¥d1l < 10%Xd2 


where di and d2 are processor-dependent integer values. If the 
magnitude x is within this range, the constant 1s produced using 
OPFu.d; otherwise, IPEw.dEe is used. Reasonable 
processor-dependent values are used for each of the cases 
involved. 


Complex constants are enclosed in parentheses, with a comma 
separating the real and imaginary parts. The end of a record may 
occur between the comma and the imaginary part only if the entire 
constant is as long as, or longer than, an entire record. The only 
embedded blanks permitted within a complex constant are between 
the comma and the end of a record and one blank at the beginning 


of the next record. ©} 
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Character constants produced: 
® Are not delimited by apostrophes 
e Are not preceded or followed by a value separator 


® Have each tnternal apostrophe represented externally by one 
apostrophe 


° Have a blank character inserted at the beginning of any record 
that begins with the continuation of a character constant 
from the preceding record 


If two or more successive values in an output record produced have 
identical values, the sequence of identical values is written. 


Slashes, as value separators, and null values are not produced by 
list-directed formatting. 


Each output record begins with a blank character to provide 
carrier control if the record is printed. 
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The FUNCTION statement identifies a function subprogram, which © 
consists of a FUNCTION statement followed by other statements 

including at least one RETURN statement. It is an independently 

written program that is executed wherever its name is referred to 

in another program. 


Syntax 





[type] FUNCTION name (Cargi [, arg2] 


1s INTEGER, REAL, DOUBLE PRECISION, COMPLEX, LOGICAL, or 
CHARACTER[EXlen1] 


where: 


¥lenl 
is the length specification. It is optional; if 
omitted, it 1s assumed to be 1. It may be an unsigned, 
nonzero, integer constant, an integer constant 
expression enclosed in parentheses, or an asterisk 
enclosed in parentheses. The expression can only 
contain integer constants; it must not include names of 
integer constants. 


If the name is of type CHARACTER, all entry names must 
be of type CHARACTER, and lengths must be the same. If 
one length is specified as an asterisk, all lengths 
must be specified as an asterisk. 


is the name of the function. @ 


SS PO EN SS 


name 





namexlen2 
is the name of the function. 


where: 


*x¥len2 
is a positive, nonzero, unsigned integer constant. It 
represents one of the permissible length 
specifications for its associated type. (See "Variable 
Types and Lengths" on page 18.) *len2 is optional. It 
may be included only when type is specified. It must 
not be used when DOUBLE PRECISION is specified. 


————_—_ a END OF 15M EXTENSION — 





arg 
is a dummy argument. It must be a variable or array name that 


may appear only once within the FUNCTION statement or dummy 
procedure name. If there is no argument, the parentheses 
must be present. (See "Dummy Arguments ina Function 
Subprogram" on page 116.) 


A type declaration for a function name may be made by the 

predefined convention, by an IMPLICIT statement, by an explicit 
specification in the FUNCTION statement, or by an explicit type 
specification statement within the function subprogram. If the 

type of a function is specified in a FUNCTION statement, the 

function name must not appear in an explicit type specification 
statement. ©} 
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The name of a function must not be in any other nonexecutable 
statement except a type statement. 


Because the FUNCTION statement is a separate program unit, there 
1s no conflict if the variable names and statement numbers within 
it are the same as those in other program units. 


The FUNCTION statement must be the first statement in the 
subprogram. The function subprogram may contain any FORTRAN 
statement except a SUBROUTINE statement, another FUNCTION 
statement, a BLOCK DATA statement, or a PROGRAM statement. If an 
IMPLICIT statement is used in a function subprogram, it must 
follow the FUNCTION statement and may only be preceded by another 
IMPLICIT statement, a PARAMETER, FORMAT, or ENTRY statement. 


The name of the function Cor one of the ENTRY names) must appear 
as a variable name in the function subprogram and must be assigned 
a value at least once during the execution of the subprogram in 
one of the following ways: 


® As the variable name to the left of the equal sign in an 
arithmetic, logical, or character assignment statement 


« As an argument of a CALL statement that will cause a value to 
be assigned in the subroutine referred to 


° In the list of a READ statement within the subprogram 


8 As one of the parameters in an INQUIRE statement that is 
assigned a value within the subprogram 


The value of the function is the last value assigned to the name 
of the function when a RETURN or END statement is executed in the 
subprogram. For additional information on RETURN and END 
statements in a function subprogram, see "RETURN Statement” on 
page 167 and "END Statement” on page 78. 


The function subprogram may also use one or more of its arguments 
to return values to the calling program. An argument so used must 
appear: 


° On the left side of an arithmetic, logical, or character 
assignment statement 


In the list of a READ statement within the subprogram 


8 As an argument ina function reference that is assigned a 
value by the function referred to 


a As an argument ina CALL statement that is assigned a value in 
the subroutine referred to 


& As one of the parameters in an INQUIRE statement 


The dummy arguments of the function subprogram (for example, 

argl, arg2, arg3,..., argn) are replaced at the time of invocation 
by the actual arguments supplied in the function reference in the 
calling program. 


If a function dummy argument is used as an adjustable array name, 
the array name and all the variables in the array declarators 
Cexcept those in COMMON) must be in the dummy argument list. See 
"Size and Type Declaration of an Array" on page 21. 


If the predefined convention is not correct, the function name 
must be typed in the program units that refer to it. The type and 
length specifications of the function name in the function 
reference must be the same as those of the function name in the 
FUNCTION statement. 


Except in a character assignment statement, the name of a 
character function whose length specification is an asterisk must 
not be the operand of a concatenation operation. 
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The length specified for a character function in the program unit 
that refers to the function must agree with the length speci fied 
in the subprogram that specifies the function. There is always 
agreement of length if the asterisk is used in the referenced 
subprogram to specify the length of the function. 


Actual Arguments in a Function Subprogram 


Dummy Arguments in a 


The actual arguments ina function reference must agree in order, 
number, and type with the corresponding dummy arguments in the 
dummy argument list of the referenced function. The use of a 
subroutine name as an actual argument 1s an exception to the rule 
requiring agreement of type. 


If an actual argument is of type character, the associated dummy 
argument must be of type character and the length of the actual 
argument must be greater than or equal to the length of the dummy 
argument. If the length of the actual argument is greater than the 
length of an associated dummy argument, the leftmost characters 
of the actual argument are associated with the dummy argument. 


An actual argument ina function reference must be one of the 
following: 


° An array name 

° An intrinsic function name 

° An external procedure name 

e A dummy argument name 

° An expression, except a character expression tnvolving 


concatenation of an operand whose Length specification is an 
asterisk in parentheses, unless the operand is the name of a 
constant. 


For an entry point ina function subprogram, see "ENTRY Statement" 
on page 82. 


Function Subprogram 


The dummy arguments of a function subprogram appear after the 
function name and are enclosed in parentheses. They are replaced 
at the time of invocation by the actual arguments supplied in the 
function reference. 


Dummy arguments must adhere to the following rules: 


* None of the dummy argument names may appear in an EQUIVALENCE, 
COMMON, DATA, PARAMETER, SAVE, INTRINSIC, or NAMELIST 
statement, except as NAMELIST or common block names, in which 
case the names are not associated with the dummy argument 
names. 


® A dummy argument name must not be the same as the procedure 
name appearing in a FUNCTION, SUBROUTINE, ENTRY or statement 
function definition in the same program unit. 


© The dummy arguments must correspond in number, order, and 
type to the actual arguments. 
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If a dummy argument is assigned a value in the subprogram, the 
corresponding actual argument must be a variable, an array 
element, a substring, or an array. A constant, name of 
constant, subprogram name, or expression should not be 
written as an actual argument unless the programmer is 
certain that the corresponding dummy argument is not assigned 
a value in the subprogram. 


A referenced subprogram cannot assign new values to dummy 


arguments that are associated with other dummy arguments 
within the subprogram or with variables in COMMON. 
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GO TO STATEMENTS 


GO TO statements transfer control to an executable statement in 
the program unit. There are three GO TO statements: 


e Assigned GO TO statement 
© Computed GO TO statement 
e Unconditional GO TO statement 


Assigned GO TO Statement 


The assigned GO TO statement transfers control to the statement 
numbered stnl, stn2, stn3 ..., depending on whether the current 
assignment of i is stnl, stn2, stn3 ..., respectively. (See 
"ASSIGN Statement” on page 46.) 


Syntax 





GO TO i C C,J (Cstnl C,stn2] [C,stn3] 


is an integer variable (not an array element) of length 4 
that has been assigned a statement number by an ASSIGN 
statement. 


stn 
is the number of an executable statement in the program unit 
containing the assigned GO TO statement. 


The list of statement numbers, that is, (stnl, stn2 ...), is 
optional. If omitted, the preceding comma must be omitted. If the 
list of statement numbers is specified, the preceding comma is 
optional. The statement number assigned to i must be one of the 
statement numbers in the list. The statement number may appear 
more than once in the list. 


The ASSIGN statement that assigns the statement number to i must 


appear in the same program unit as the assigned GO TO statement 
that is using this statement number. 


For example, in the statement: 
GO TO N, (10, 25, 8) 


If the current assignment of the integer variable N is statement 
number 8, then the statement numbered 8 is executed next. If the 
current assignment of N is statement number 10, the statement 
numbered 10 is executed next. If N is assigned statement number 
25, statement 25 is executed next. 


At the time of execution of an assigned GO TO statement, the 
current value of 1 must have been assigned the statement number of 
an executable statement (not a FORMAT statement) by the previous 
execution of an ASSIGN statement. 


If at the time of the execution of an assigned GO TO statement, 
the current value of i contains an integer value, assigned 
directly or through EQUIVALENCE, COMMON, or argument passing, the 
result of the GO TO is unpredictable. If the integer variable i is 
a dummy argument ina subprogram, then it must be assigned a 
statement number in the subprogram, and also used in an assigned 
GO TO in that subprogram. An integer variable used as an actual 
argument ina subprogram reference may not be used in an assigned 
GO TO in the invoked subprogram unless it is redefined in the 
subprogram. 
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GO TO 


Any executable statement immediately following the assigned GO TO 
statement should have a statement number; otherwise, 1t can never 
be referred to or executed. 


Xarple: 
ASSIGN 150 TO IASIGN 


IVAR=150. 
GO TO IASIGN 


Computed GO TO Statement 


The computed GO TO statement transfers control to the statement 
numbered stnl, stn2, or stn3,... dapending on whether the current 
value of mis l, 2, or 3,... respectively. 


Syntax 





GO TO Cstnil ({; stn2] [. stn3] 


is the number of an executable statement in the program unit 
containing the computed GO TO statement. The same number may 
appear more than once within the parentheses. 


3 


is an integer expression. The comma before mis optional. If 
the value of mis outside the range 1Sm<n, where nis the 
number of statement numbers, the next statement is executed. 


Exainple: 


171 GO 100172,173,174,173) INTCA) 
172, A =A F 1.8 
GO TO 174 
pio f= & F 18 
174 CONTINUE 


Unconditional GO TO Statenent 


The unconditional GO TO statement transfers control to the 
statement specified by the statement number. Every subsequent 
execution of this GO TO statement results ina transfer to that 
same statement. 


Syntax 





GO TO stn 


stn 


is the number of an executable statement in the program unit 
containing the unconditional GO TO statement. 


Any executable statement immediately following this statement 
must have a statement number; otherwise, it can never be referred 
to or executed. 

Exarple: 


GO TO 5 
299 2 =i + 200 
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The IF statements specify alternative paths of execution 
depending on the condition given. There are three forms of the IF 
statement: 
° Arithmetic IF 
e Block IF 

END IF 

ELSE 

ELSE. IF 


6 Logical IF 


Arithmetic IF Statement 


Block IF Statement 


The arithmetic IF statement transfers control to the statement 
numbered stnl, stn2, or stn3 when the value of the arithmetic 
expression (m) 1s less than, equal to, or greater than zero, 
respectively. The same statement number may appear more than once 
within the same IF statement. 


Syntax 





IF (m) stnl, 


is an arithmetic expression of any type except complex. 


stn 
is the number of an executable statement in the program unit 
containing the IF statement. 


Any executable statement immediately following this statement 
must have a statement number; otherwise, it can never be referred 
to or executed. 


The block IF statement is used with the END IF statement and, 
cptionally, the ELSE IF and ELSE statements to control the 
execution sequence. 


Syntax 





IF (m) THEN 


is any logical expression. 


Two terms are used in connection with the block IF statement, 
IF-level and IF-block. 


IF-level The number of IF-levels ina program unit is determined 
by the number of sets of block-IF statements CIF (m) 
THEN and END IF statements). 


The IF-level of a particular statement (stn) is 
determined with the formula: 


ni - ne. 
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END IF Statement 


IF 


where: 


nl 
is the number of block IF statements from the 
beginning of the program unit up to and including 
the statement (stn). 


is the number of END IF statements in the program 
unit up to, but not including, the statement 
(stn). 


IF-block An IF-block begins with the first statement after the 
block IF statement CIF (m) THEN), ends with the 
statement preceding the next ELSE IF, ELSE, or END IF 
statement that has the same IF-level as the block IF 
statement, and includes all the executable statements 
in between. An IF-block is empty if there are no 
executable statements in it. 


Transfer of control into an IF-block from outside the 
IF-block is prohibited. 


Execution of a block IF statement evaluates the expression m. If 
the value of mis true, normal execution sequence continues with 
the first statement of the IF-block, which is immediately 
following the IF (m) THEN. If the value of mis true, and the 
IF-block is empty, control is transferred to the next END IF 
statement that has the same IF-level as the block IF statement. If 
the value of mis false, control is transferred to the next ELSE 
IF, ELSE, or END IF statement that has the same IF-level as the 
block IF statement. 


If the execution of the last statement in the IF-block does not 
result ina transfer of control, control is transferred to the 
next END IF statement that has the same IF-level as the block IF 
statement that precedes the IF-block. 


A block IF statement cannot terminate the range of a DO. 


The END IF statement concludes an IF-block. Normal execution 
sequence continues. 


Syntax 
END IF 


For each block IF statement, there must be a matching END IF 
statement in the same program unit. A matching END IF statement is 
the next END IF statement that has the same IF-level as the block 
IF statement. 


An END IF statement cannot terminate the range of a DO. Execution 
of an END IF statement has no effect. 


Example: 


IF (m) THEN 


END IF 
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ELSE IF Statement 


The ELSE statement is executed if the preceding block IF or ELSE 
IF condition is evaluated as FALSE. Normal execution sequence 
continues. 

Syntax 


ELSE 


An ELSE-block consists of all the executable statements after the 
ELSE statement up to, but not including, the next END IF statement 
that has the same IF-level as the ELSE statement. An ELSE-block 
may be empty. 

Within an IF block, you can have only one ELSE. 

Transfer of control into an ELSE-block from outside the 
ELSE-block is prohibited. The statement number, if any, of an ELSE 
statement must not be referred to by any statement (except an AT 
statement of a DEBUG packet). An ELSE statement cannot terminate 
the range of a DO. 

Example: 


IF (m) THEN 
ELSE 


END IF 


The ELSE IF statement is executed if the preceding block IF 
condition is evaluated as false. 


Syntax 
ELSE IF (m) THEN 





is any logical expression. 


An ELSE IF-block consists of all the executable statements after 
the ELSE IF statement up to, but not including, the next ELSE IF, 
ELSE, or END IF statement that has the same IF-level as the ELSE 
IF statement. An ELSE IF-block may be empty. 


If the value of the logical expression m 1s true, normal execution 
sequence continues with the first statement of the ELSE IF-block. 


If the value of mis true and the ELSE IF-block is empty, control 
is transferred to the next END IF statement that has the same 
IF-level as the ELSE IF statement. 


If the value of mis false, control is transferred to the next 
ELSE IF, ELSE, or END IF statement that has the same IF-level as 
the ELSE IF statement. 


Transfer of control into an ELSE IF-block from outside the ELSE 
IF-block is prohibited. The statement number (stn), if any, of the 
ELSE IF statement must not be referred to by any statement Cexcept 
an AT statement of a DEBUG packet). 
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If execution of the last statement in the ELSE IF-block does not 
result in a transfer of control, control is transferred to the 
next END IF statement that has the same IF-level as the ELSE IF 
statement that precedes the ELSE IF-block. 





An END IF statement cannot terminate the range of a DO. 
Example 1: 
IF (m) THEN 


ELSE IF (m) THEN 
END IF 
Example 2: 


IF (€m) THEN 


ELSE IF (m) THEN 


ELSE 
END IF 
Logical IF Statement 
The logical IF statement evaluates a logical expression and 
executes or skips a statement, depending on whether the value of 


the expression is true or false, respectively. 


Syntax 





IF (m) st 


is any logical expression. 


is any executable statement except a DO statement, another 
logical IF statement, an END statement, a block IF, ELSE IF, 
ELSE, or END IF statement. 

———— eee TBM EXTENSION ————— ey 
st may not be a TRACE ON, TRACE OFF, INCLUDE, or DISPLAY 


statement. 


—_—________- END OF IBM EXTENSION ———————____"’ 
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IF 
The statement st must not have a statement number. ® 


The execution of a function reference inm is permitted to 
affect entities in the statement st. 


The logical IF statement containing st may have a statement 
number. 


Examples: 


LPCR.LE.0.87 SO TG 25 
C=D+t+E 
IF (A.EQ@.B) ANSWER = 2.0%A/C 
3 G/H 

X¥*XRZ 


25 W 
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IMPLICIT TYPE STATEMENT 


The IMPLICIT type statement specifies the type and length of all 
variables, arrays, and user-supplied functions whose names begin 
with a particular letter. It may be used to change or confirm 
implicit typing. 





Syntax 





IMPLICIT type Ca [s @ 1...) 


is CHARACTER[*¥lenlJ, COMPLEX, DOUBLE PRECISION, INTEGER, 
LOGICAL, or REAL 


where: 


¥lenl 
can be an unsigned, nonzero, integer constant ora 
positive integer constant expression enclosed in 
parentheses. It is optional. 


If lenl is not specified, the length 15 one. 


enn EN ENN a 


type 
is COMPLEXE ¥len2], INTEGER[X¥len2], LOGICALEX¥len2], or 
REALL X¥len2] 


where: 
eS ¥len2 
can be a positive, nonzero, unsigned, integer 
constant. It represents one of the permissible length 


specifications for its associated type. It is 
optional. 


—— ee END OF IBM EXTENSION ——— 


a 
is a single alphabetic character or a range of characters 
drawn from the set A, B,...» 2. The range is denoted by the 
first and last characters of the range separated by a minus 
sign (for example, A-D). 


ee LEM EATEN 


The alphabetic character a can also be the currency symbol 


($). The currency symbol ($) follows the letter Z. Thus, 
the range Y-$ is the same as Y,Z,$ 


—nnnnmmens ENT) OF IBM EXTENSION ——————————————————— 


The IMPLICIT specification statement can only be preceded by a 
PROGRAM, SUBROUTINE, FUNCTION, BLOCK DATA, PARAMETER, ENTRY, or 
FORMAT statement, or another IMPLICIT statement. The IMPLICIT 
specification statement declares the type of the variables and 
user-supplied functions appearing in this program (that is, 
integer, real, complex, logical, or character) by specifying that 
names beginning with certain designated letters are of a certain 
type. Furthermore, the IMPLICIT statement allows the programmer 
to declare the number of bytes to be allocated for each in the 
group of specified variables. 
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When type is CHARACTER, the length specification is between 1 and 
500. The standard (default) length is l 





The type and length associated with a letter or a range of letters 
must not conflict with the type or length given previously to the 
same letters in the same IMPLICIT statement, ina different 
IMPLICIT statement or in a PARAMETER statement. Type 
specification by an IMPLICIT statement may be overridden or 
confirmed for any particular variable, array, name of a constant, 
external function, or statement function name by the appearance 
of that name in an explicit type specification statement. 


(See "Type Declaration by the Predefined Specification” on page 
19.) 


Note: An IMPLICIT statement has no effect on names of 
FORTRAN-Supplied Cintrinsic) functions. 


Valid IMPLICIT Statements: 
IMPLICIT INTEGERCA-H), REALCI-K), LOGICALCL.M,N) 
IMPLICIT COMPLEXCC-F) 


en LEM EATEN LO ners 


IMPLICIT INTEGER(W-$) 


All names beginning with W, X, Y, Z, and $ are 
considered integers of length 4 bytes. 


Seen. END OF IBM EXTENSION ————— 
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———_— —————__ IBM EXTENSION ———_ 


INCLUDE STATEMENT 


The INCLUDE statement is a compiler directive. It inserts a 
spec 
unit 





INC 





ified statement or a group of statements into a program 


Syntax 
LUDE (name) 


is the name of a group of one or more FORTRAN source 
statements to be inserted into the source program being 
compiled. 


The group must reside ina library known to the VS FORTRAN 
compiler. 


The following rules apply to the INCLUDE statement: 


INCLUDE is a compiler directive statement only. 
The INCLUDE statement may not be continued. 
No replacement or editing 1s done. 


The inserted group may contain any VS FORTRAN source 
statements, including other INCLUDE statements. 


An INCLUDE of a group may not contain an INCLUDE statement 
that refers to a currently open INCLUDE group (that is, 
recursion is not permitted). 


Multiple INCLUDE statements may appear in the original 
source program. 


INCLUDE statements may appear anywhere ina source program 
before the END statement, except as the trailer of a logical 
IF statement. An END statement may be part of the included 
group. 


The FORTRAN statements in the group being included must be 
in the same form as the source program being compiled; that 
is, fixed form or free form. 


The resulting FORTRAN program after the inclusion of all 
groups must follow all FORTRAN rules for sequencing of 
statements. 


ees END OF IBM EXTENSION ———— 
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INQUIRE STATEMENT 





An INQUIRE statement supplies information about properties of a & 
particular named external file or of the connection to a 
particular external unit. 


There are two forms of the INQUIRE statement: 
° Inquire by file name 
6 Inquire by unit number 


A sequential file or a direct-access file can be queried about its 
existence, its connection to a unit, its unit number, its name, 
its access method, whether it 1s formatted or unformatted, and how 
blanks are to be interpreted. In addition, a direct-access file is 
queried about 1ts record length or its next record number. 


The INQUIRE statement may be executed before, while, or after a 
file is connected to a unit. All values assigned by the INQUIRE 
statement are those that are current at the time the statement is 
executed. All value assignments are done according to the rules 
for assignment statements. No error 1s given if the value is 
truncated because the receiving field 1s too small to contain it 
all. 


INQUIRE by File Name 


This INQUIRE statement supplies information about a file. When 
this statement is executed, the file specified by fn may or may 
not be connected to a unit. If the file 15 connected to a unit, 
the file may or may not exist. (For example, an output unit may be 
connected to a file but no output has been written. ) 





Syntax 
INQUIRE (FILE=fn C, ERR=stn] [C, IOSTAT=ios] [, EXIST=exs] © 
[, OPENED=opn] [£, NAMED=nmd] [, NAME=nam] 
[, SEQUENTIAL=seq] [, DIRECT=dir] 
C, FORMATTED=fmt] [F, UNFORMATTED=unf] 
C, NUMBER=num] [, ACCESS=acc] [, FORM=frm] 
[, RECL=relJ] [, NEXTREC=nxr] [, BLANK=blk]) 


All parameters except FILE=fn are optional. 


FILE-fn 
FILE=fn is required. fn is the reference to a file and must 
be preceded by FILE=. It 15 a character expression. Its 


value, when any trailing blanks are removed, must be 1 to 7 
alphameric characters, the first one being alphabetic. It 
specifies the name of the file being inquired about and must 
be known to the program. 


ERR=stn 
stn is the number of a statement in the same program unit as 
the INQUIRE statement to which control is given when the 
value of fn (as described under FILE=fn) is not a valid file 





name. 
IOSTAT=105 

1 is an integer variable or an integer array element of 

length 4. The value of ios 15 set positive if an error 15s 

detected; it is set to zero 1f no error is detected. VSAM © 

return and reason codes are placed in 105s. 


128 VS FORTRAN Language Reference 


INQUIRE 


EXIST=exs 
exs 15 a logical variable or logical array element. It is 
assigned the value true if the file by the specified name 
exists; otherwise, it 1s assigned the value false. 





THE FILE EXISTS: The following parameters have a value only 1f the 
file being inquired about exists; that is, exs has the value true. 
They are all optional. 


OPENED=-apn 
oepn is a logical variable or a logical array element. It 1s 
assigned the value true if the file specified is connected to 
a unit, otherwise, it is assigned the value false. 


NAMED=nmd 
nmd is a logical variable or a logical array element. If the 
file has a name (fn), nmd is assigned the value true; 
otherwise, it is assigned the value false. 


NAME=nam 
nam 15 a character variable or character array element. If 
the file has a name (fn), nam is assigned the value of name. 
name 1s not necessarily the same as the name in the FILE 
parameter (fn). 


SEQUENTIAL=seq 
seq is a character variable or a character array element. It 
is assigned the value YES if the file can be connected for 
sequential access input/output; NO if it cannot; and UNKNOWN 
if it 1s not possible to determine whether the file can be 
connected for sequential access. 


DIRECT=dir 
dir is a character variable or a character array element. It 
is assigned the value YES if the file can be connected for 
direct access input/output; NO if it cannot; and UNKNOWN if 
it 15 not possible to determine whether the file can be 
connected for direct access. 


FORMATTED=fmt 
fmt is a character variable or character array element. It is 
assigned the value YES if the file can be connected for 
formatted input/output; NO if it cannot; and UNKNOWN if it is 
not possible to determine whether the file can be connected 
for formatted input/output. 


UNFORMATTED=unf 
unf is a character variable or character array element. It is 
assigned the value YES if the file can be connected for 
unformatted inputZoutput; NO if it cannot; and UNKNOWN if it 
is not possible to determine whether the file can be 
connected for unformatted input/output. 


THE FILE IS CONNECTED TO AN EXISTING UNIT: The following 
parameters have a value only if the file exists (exs has the value 
true) and if the file is connected to a unit Copn has the value 
true). They are all optional. 


NUMBER=num 
num 1S an integer variable or integer array element. It is 


assigned the value of the external unit connected to the 
4.16. 





ACCESS-acc 
acc 15 a character variable or character array element. If 
there 1S a name fn, acc 15 assigned a value (SEQUENTIAL or 
DIRECT) associated with the connection of the external file. 


FORM=frm 
frm is a character variable or character array element. It is 
assigned the value FORMATTED if the file 1s connected for 
formatted input/output; UNFORMATTED if the file is connected 
for unformatted input/output. 
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THE FILE IS CONNECTED FOR DIRECT ACCESS I/O: The following 
parameters have a value only if the file exists (exs has the value 
true) and if the file is connected for direct access (acc=DIRECT). 
They are all optional. The file must have been explicitly opened. 


RECL=rel 
rel is an integer variable or integer array element. It is 
assigned the value of the record length of the file connected 
for direct access. The length 1s measured in characters for 
files consisting of formatted records and in bytes for files 
consisting of unformatted records. 


NEXTREC=nxr 
nxr 1s an integer variable or integer array element. It is 
assigned the value ntl, where n is the record number of the 
last record read or written on the direct access file. If the 
file is connected, but no records have been read or written 
since the connection, nxr is assigned the value l. 





THE FILE IS CONNECTED FOR FORMATTED I/O: The following parameter 
has a value only if the file exists (Cexs has the value true) and 
if the file is connected for formatted input/output (frm has the 
value FORMATTED). It is optional. 


BLANK=b1lk 
blk is a character variable or character array element. It is 
assigned the value NULL if blanks in arithmetic input fields 
are treated as blanks; ZERO if they are treated as zeros. 


The parameters can be entered in any order. Each parameter cannot 
appear more than once in an INQUIRE statement. The same variable 
or array element may not be specified for more than one parameter 
in the same INQUIRE statement. 


Valid INQUIRE Statement: 


INQUIRE (FILE=DDNAME, IOSTAT=I0S, EXIST=LEX, OPENED=LOD, 
NAMED=LNMD, NAME=FN, SEQUENTIAL=SEQ, DIRECT=DIR, 
FORMATTED=FMT, UNFORMATTED=UNF, ACCESS=ACC, FORM=FRM, 
NUMBER=INUM, RECL=IRCL, NEXTREC=INR, BLANK=BLNK) 


INQUIRE by Unit Number 


This INQUIRE statement supplies information about an input/output 
UN TS 


A unit can be queried as to its existence and its connection to a 
file. If it is connected to a file, the inquiry is being made 
about the connection and the file connected. When this statement 
is executed, the unit specified by un may or may not be connected 
to a file. If the unit is connected to a file, the file may or may 
not exist. For example, an output unit may be connected to a file 
but no output has been written. 


Syntax 





INQUIRE (CUNIT=Jun [E, ERR=stn] [, IOSTAT=ios] [C, EXIST=exs] 
[, OPENED=opn] E, NAMED=nmd] [, NAME=nam] 
C, SEQUENTIAL=seq] [, DIRECT=dir] 


C, FORMATTED=fmt] C, UNFORMATTED=unf] 


[, NUMBER=num] [, ACCESS=acc] [, FORM=frm] 


C, RECL=relJ] [, NEXTREC=nxr] [, BLANK=blk] 


All parameters except UNIT=un are optional. 
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UNIT=un 
un is the reference to an I70 unit. It is required and can 
optionally be preceded by UNIT=. un is an integer expression 
of length 4 whose value (zero or positive) represents the 
unit number that is being queried. 


ERR=stn 
stn is the number of a statement in the same program unit as 
the INQUIRE statement to which control is given when the 
value of un (as described under UNIT=un) is not a valid unit 
number. 


IOSTAT=i0s 
ios is an integer variable or an integer array element of 
length 4. Its value is set positive if an error is detected; 
it is set to zero if no error is detected. VSAM return and 
reason codes are placed in ios. 





EXIST=exs 
exs is a logical variable or logical array element. It is 
assigned to value true if the specified unit exists and is 
known to the program unit. If neither of these conditions is 
met, exs is assigned the value false. 


OPENED=-opn 
opn is a logical variable or logical array element. It is 
assigned the value true if the file specified is connected to 
a unit; otherwise, it is assigned the value false. 


THE UNIT IS CONNECTED TO AN EXTERNAL FILE: The following 
parameters have a value only if the unit exists Cexs has the value 
true) and the unit is connected to an external file Copn has the 
value true). They are all optional. 


NAMED=nmd 
nmd is a logical variable or a logical array element. It is 
assigned the value true if the file connected to the unit has 
a name; otherwise, it is assigned the value false. 


NAME=nam 
nam is a character variable or character array element. If 
the file connected to the unit has a name, it is assigned the 
value of the name of that file. If the file is unnamed, a 
default name is assigned. 


SEQUENTIAL=seq 
seq 1s a character variable or a character array element. It 
is assigned the value YES if the file can be connected for 
sequential access input/output; NO if it cannot; and UNKNOWN 
if it is not possible to determine whether the file can be 
connected for sequential access. 


DIRECT=dir 
dir 1s a character variable or a character array element. It 
is assigned the value YES if the file can be connected for 
direct access input/output; NO if it cannot; and UNKNOWN if 
it 1s not possible to determine whether the file can be 
connected for direct access. 


FORMATTED=fmt 
fmt is a character variable or character array element. It is 
assigned the value YES if the file can be connected for 
formatted input/output; NO if it cannot; and UNKNOWN if it is 
not possible to determine whether the file can be connected 
for formatted input/output. 


UNFORMATTED=-unf 
unf is a character variable or character array element. It is 
assigned the value YES if the file can be connected for 
formatted input/output; NO if it cannot; and UNKNOWN if it is 
not possible to determine whether the file can be connected 
for formatted input/output. 
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NUMBER=num 
num is an integer variable or integer array element. Its 
value is the value of un. 





ACCESS=acc 
acc 1s a character variable or character array element. It is 
assigned the value (SEQUENTIAL or DIRECT) associated with 
the connection of the external file. 


FORM=frim 
frm is a character variable or character array element. frm 
is assigned the value FORMATTED if the file is connected for 
formatted input/output; UNFORMATTED if the file is connected 
for unformatted output. 


THE UNIT IS CONNECTED TO AN EXTERNAL FILE FOR DIRECT ACCESS I7/0: 
The following parameters have a value only if the unit exists (exs 
has the value true) and is connected to an external file for 
direct access input/output Cacc has the value DIRECT). They are 
all optional. 


RECL=rel ) 
rel is an integer variable or integer array element. It is 
assigned the value of the record length of the direct access 
file. The length 15 measured in characters for files 
consisting of formatted records and in bytes for files 
consisting of unformatted records. 


NEXTREC=nxr 
nxr is an integer variable or integer array element. It is 
assigned the value ntl where n is the record number of the 
last record read or written on the direct access file. If the 
file is connected, but no records have been read or written 
since the connection, nxr is assigned the value l. 


BLANK=blk 
blk is a character variable or character array element. It is 
assigned the value NULL if blanks tn arithmetic input fields 
are treated as blanks; ZERO if they are treated as zeros. 





The parameters can be entered in any order unless UNIT=un is 
omitted. If omitted, un, as described under UNIT=un, must be 
Tirst. 


Valid INQUIRE Statement: 

INQUIRE (0, IOSTAT=IACTC1), ERR=99999, EXIST=LACTC9), 
OPENED=LACTC8&8), NAMED=LACTC7), NAME=ACTUAL(C1), 
SEQUENTIAL=ACTUALC2), DIRECT=ACTUALC3), 
FORMATTED=ACTUALC4), UNFORMATTED=ACTUAL(C5), 


ACCESS=ACTUALC6), FORM=ACTUALC7), NUMBER=IACTC2), 
RECL=IACTC3), NEXTREC=IACTC4), BLANK=ACTUALC8)) 


INTEGER TYPE STATEMENT 


See "Explicit Type Statement” on page 8&6. 
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INTRINSIC 


The INTRINSIC statement identifies a name as representing a 
FORTRAN-supplied procedure Cintrinsic function; see "Appendix C. 
IBM and ANS FORTRAN Features” on page 222). This name can be a 
generic name or a specific name. See "Specific Names and Generic 
Names” on page 134. It also permits a specific intrinsic function 
name to be used as an actual argument. 


Syntax 
INTRINSIC namel [, name2 ] 





name 


is the name of a VS FORTRAN intrinsic function. 


The INTRINSIC statement is a specification statement and must 
precede statement function definitions and all executable 
statements. 


Intrinsic functions are those functions known to the compiler. 
Intrinsic function names are either generic or specific. A 
generic name does not have a type unless it is also a specific 
name. When a generic name is used with any of the argument types 
available for that generic name, the specific named function 
corresponding to the argument type is chosen. This makes it 
unnecessary for the user to know which intrinsic function name 
goes with which argument type. 


Appearance of a name in an INTRINSIC statement declares that name 
to be an intrinsic function name. If a specific name of an 
intrinsic function is used as an actual argument in a program 
unit, it must appear in an INTRINSIC statement in that program 
unit. 


The following names of specific intrinsic functions must not be 
passed as actual arguments: 


AMAX0O INT 
AMAX1 LGE 
AMINO LGT 
AMINI Lite 
CHAR CLT 
DMAX1 MAX9O 
DMINI MAXI 
FLOAT MINO 
ICHAR MINI 
IDINT REAL 
IFIX SNGL 


a Let Scene 


CMPLX QCMPLX 
DBLE QEXT 
DBLEQ QEXTD 
DCMPLX QFLOAT 
DFLOAT QMAX1 
DREAL QMINI 
HFIX QREAL 
IQINT SNGLQ 


——_________- END OF IBM EXTENSION ———————————__" 


The appearance of a generic function name in an INTRINSIC 
statement does not cause the name to lose its generic property. 
Only one appearance of name in all of the INTRINSIC statements of 
a program unit is permitted. The same name must not appear in both 
an EXTERNAL and an INTRINSIC statement in a program unit. 
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explicit specification statement, the type must confirm its 
associated type. 





If the name of a VS FORTRAN intrinsic function appears in an ; 


If the name of a FORTRAN intrinsic function appears in the dummy 
argument list of a subprogram, that name is not considered as the 
name of a FORTRAN intrinsic function in that program unit. 


Specific Names and Generic Names 


Generic names simplify referring to intrinsic functions because 
the same function name may be used with more than one type of 
argument (See "Appendix C. IBM and ANS FORTRAN Features" on page 
222). Only a specific intrinsic function name may be used as an 
actual argument when the argument is an intrinsic function. For 
those intrinsic functions that require more than one argument, 
all arguments must be of the same type. 


LOGICAL IF STATEMENT 
See "IF Statements” on page 120. 


LOGICAL TYPE STATEMENT 
See "Explicit Type Statement” on page 8&6. 
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NAMELIST STATEMENT 


The NAMELIST statement specifies one or more lists of names for 
use in READ and WRITE statements. 


Syntax 





NAMELIST Znamel/ List1l /name2/ list2 





is a NAMELIST name. It is a name, enclosed in slashes, that 
must not be the same as a variable or array name. 


list 
is of the form al, a2,..., an 


where: 


a 
is a variable name or an array name. 


The list of variables or array names belonging to a NAMELIST 
name ends with a new NAMELIST name enclosed in slashes or with 
the end of the NAMELIST statement. A variable name or an array 
name may belong to one or more NAMELIST lists. 


Neither a dummy variable nor a dummy array name may appear ina 
NAMELIST List. 


The NAMELIST statement must precede any statement function 
definitions and all executable statements. A NAMELIST name must 
be declared in a NAMELIST statement and may be declared only 
once. The name may appear only in input/output statements. 

The NAMELIST statement declares a name name to refer toa 
particular list of variables or array names. Thereafter, the 
forms READCun,name) and WRITECun,name) are used to transmit 
data between the file associated with the unit un and the 
variables specified by the NAMELIST name name. 


The rules for input/output conversion of NAMELIST data are the 
same as the rules for data conversion described in "General 
Rules for Data Conversion” on page 93. The NAMELIST data must be 
in a special form, described in "NAMELIST Input Data.” 


NAMELIST Input Data 


Input data must be in a special form in order to be read using a 
NAMELIST list. The first character in each record to be read 
must be blank. The second character in the first record of a 
group of data records must be an ampersand (&) immediately 
followed by the NAMELIST name. The NAMELIST name must be 
followed by a blank and must not contain any embedded blanks. 
This name is followed by data items separated by commas. (A 
comma after the last item is optional.) The end of a data group 
is signaled by &END. 


The form of the data items in an input record is: 
° Name = Constant 
= The name may be an array element name or a variable 
name. 
© — The constant may be integer, real, complex, logical, or 


character. CIf the constants are logical, they may be 
in the form T or .TRUE. and F or .FALSE.; if the 
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constants are characters, they must be included between 
apostrophes. ) rd 





ms Subscripts must be integer constants. 


3 Array Name = Set of Constants (separated by commas) 


= The set of constants consists of constants of the type 
integer, real, complex, logical, or character. 


- The number of constants must be less than or equal to 
the number of elements in the array. 


— Successive occurrences of the same constant can be 
represented in the form cX¥constant, where c is a 
nonzero integer constant specifying the number of times 
the constant 1s to occur. 


The variable names and array names specified in the input file 
must appear in the NAMELIST list, but the order 1s not 
significant. A name that has been made equivalent to a name in 
the input data cannot be substituted for that name in the 
NAMELIST list. The list can contain names of items in COMMON but 
must not contain dummy argument names. 


Each data record must begin with a blank followed by a complete 
variable or array name or constant. Embedded blanks are not 
permitted in names or constants. Trailing blanks after integers 
and exponents are treated as zeros. 


Examples: 


All records have a blank in column l. 


Column 2 





Vv 
first card &NAM1 I02,3)=5,J=4,B=3.2 


last card AC3)=4.0,L22,3,7%4,8END 
where NAMI is defined in a NAMELIST statement as: 
NAMELIST /NAM1ZA,B,I,J,L 


and assuming that A is a 3-element array and I and L are 3X3 
element arrays. 


NAMELIST OCutput Data 


When output data is written using a NAMELIST list, it is written 
ina form that can be read using a NAMELIST list. All variable 
and array names specified in the NAMELIST list and their values 
are written out, each according to its type. Character data is 
included between apostrophes. The fields for the data are made 
large enough to contain all the significant digits. The values 
of a complete array are written out in columns. 


Example: 
NAMELIST /NAM1/A,B,1,J,L/NAM2/C,J,1,L 


READ CCARD,NAMI) 
WRITE CITAPE,NAM1L) 


L_____-______________ END OF IBM EXTENSION ——————————————_" 
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OPEN 


An OPEN statement may be used to: 


e Connect an existing file to a unit. 
° Create a file that is preconnected. 
e Create a file and connect it to a unit. 
° Change certain identifiers of a connection between a file and 
a unit. 
Syntax 





OPEN € CUNIT=Jun [, ERR=stn] [C, STATUS=stal [, FILE=fnl 
L > ACCESS=acc] [> BLANK=blLk] Ls FORM=frm] 


E, IOSTAT=jios] C, RECL=rel] ) 


All parameters are optional except un. 


UNIT=un 
un is the reference to an [70 unit. It 1s required and can 
optionally be preceded by UNIT=. un 1s an integer expression 
of length 4 whose value must be zero or positive. 


If UNIT= is specified, the parameters may appear in any 
order. 


If UNIT= is not specified, un must appear first in the 
statement. The other parameters may appear in any order. 


ERR=stn 
stn 1s the number of a statement in the same program unit as 
the OPEN statement to which control is given when an error 15 
detected during execution of the OPEN statement. 


STATUS=sta 
sta is a character expression. Its value when any trailing 
blanks are removed must be NEW, OLD, SCRATCH, or UNKNOWN. If 
STATUS is omitted, it is assumed to be UNKNOWN. 


If the status of the external file is specified as: 


e NEW, FILE=fn may be specified and the file fn must not 
exist. 


° OLD, FILE-fn may be specified and the file fn must exist. 


SCRATCH, FILE=fn must not be specified and the file fn 
may or may not exist. 


e UNKNOWN, FILE=fn is optional. 


FILE=fn 
fn 1s a character expression. Its value when any trailing 
blanks are removed is the name of the file to be connected to 
the unit specified by un. This file name must bea string of 
1 to 7 alphameric characters, the first one being 
alphabetic. 


ACCESS=acc 
acc 1S a character expression whose value (when any trailing 
blanks are removed) must be SEQUENTIAL or DIRECT. It 
specifies the file as being accessed as a sequential or 
direct file. If ACCESS=acc is not specified, it is assumed to 
be SEQUENTIAL. 
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BLANK=)b1LK 
blk 1s a character expression whose value (when any trailing 
blanks are removed) must be NULL or ZERQ. This specifier 
affects the processing of the arithmetic fields accessed by 
READ statements with format specification or with 
list-directed only. [It is ignored for nonarithmetic fields, 
for READ statements without format specification or with 
NAMNELIST, and for all output statements. If HULL is 
specified, all blank characters in arithmetic formatted 
input fields on the specified unit are ignored, except that a 
field of all blanks has a value of zero. If ZERO is 
specified, all blanks, other than leading blanks, are 
treated as zeros. If this specifier 1s omitted and 
FORM=FORMATTED, a value of NULL 1s assumed. 





FORN=frm 

frm is a character expression whose value (when any trailing 
blanks are removed) must be FORMATTED or UNFOGRMATTED. This 
specifier indicates that the external file 15 connected for 
formatted or unformatted tnputZoutput. If this specifier is 
omitted for a file connected with direct access, a value of 
UNFORMATTED is assumed. If this specifier 1s omitted for a 
file connected with sequential access, a value of FORMATTED 
is assumed. 


IOSTAT=i90s 
ios is an integer variable or an integer array elemant of 
lenath 4. Its value is set positive if an error is detected; 
it is set to zero if no error is detected. VSAM return and 
reason codes are placed in ios. 


DIRECT ACCESS FILES: The following specifier is used only with 
direct access files and must be specified for direct access files. 


RECL=rel 
rel is an integer expression. It is assigned the value of the 
record length of the file connected for direct access. The 
length is measured in characters for files consisting of 
formatted records and in bytes for files consisting of 
unformatted records. 





Each of the parameters of the OPEN statement may appear only once. 
The unit specifier Cun) must appear. All value assignments are 
made according to the rules for assignment statements. 


Before the OPEN statement is executed, the I70 unit specified by 
un may be either connected or not connected to an external file. 


OPEN is required for direct-access and VSAM files. It 15 optional 
for sequential files. 


It is invalid for internal files. 


The 1/70 Unit is Not Connected to the External File 


Successful execution of the OPEN statement connects the I70 unit 
specified by un to the external file specified by fn with the 
parameters specified Cor assumed) in the OPEN statement. (See VS 
FORTRAN Application Programming: Guide for the parameters allowed 
with the various definitions of data sets.) 





The 1/70 Unit is Connected to the External File 


A unit connected in any program unit of an executable program 1s 
available in any other program unit of the executable program. 


The unit reference and the file name are un and fn in the OPEN 


statement. 3 
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BEFORE EXECUTION OF OPEN 
° If some parameters are specified on the OPEN statement, they 


must match the attributes of the connection of file fn Cexcept 
that BLANK may be different). 





e The external file fn must not be connected to an [70 unit. 


° The OPEN is executed as a CLOSE CUNIT=un, STATUS=UNKNOWN) 
followed by an OPEN with unit un and external file fnl. 


° If any error is detected, the unit un stays connected to file 
hits 


AFTER SUCCESSFUL OPEN 


6 Unit un stays connected to file fn. 
° The new value of the BLANK specifier comes into effect. 
° File fn exists Cexs has the value true). 


s If it had the NEW attribute, it is changed to OLD. 
° The other attributes stay unchanged. 
e The file is not repositioned at the beginning. 


° The unit un is connected to the external file fnl. The 
attributes of the connection are described in VS FORTRAN 


Application Programming: Guide. 


° The unit reference and the file name are unl and fn in the 
OPEN statement Cunl different from un). An error is detected 
and the unit un stays connected to file fn. 


© CONDITIONS THAT PREVENT EXECUTION OF OPEN: Any of the following 
conditions prevent execution of the OPEN statement: 


e Invalid unit number specified, that is, un. 
* Invalid file name specified, that is, fn. 
° Invalid values of the specifiers in the OPEN statement. 


= OLD specified for a file that does not exist. 


_ ACCESS, FORM, REC do not match the actual attributes of an 
existing file. 


- RECL=rcl value is not positive integer. 


— OPEN statement specifies a different unit than the one 
the file is connected to. 


Control transfers to the statement specified in ERR=stn or, if 
ERR=stn is not specified, execution of the program is terminated. 
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Examples: 


Open a New External File: The following statement would open a new 
external file. 


DDNAME = 'DDNAME' 

OPEN CUNIT=2*IN-10, IOSTAT=I0S, ERR=99999, FILE=DDNAME, 
STATUS=NEW, ACCESS="SEQU'//"ENTIAL '°, FORM=FORMAT, 
BLANK=ZERO) 


Open an Old External File: The following statement would open an 
old external file. 


OPEN (0, IOSTAT=IACTC1), FILE="DDNAME',STATUS='OLD’, 
ACCESS="SEQUENTIAL’, FORM='FORMATTED’, 
BLANK="NULL*") 


Open a Preconnected, Nonexistent File: The following statement 
would open a preconnected, nonexisting file unknown for direct. 


OPEN CIOSTAT=IACTC1), ERR=99999, STATUS=UNKNOWN, 
ACCESS="DIRECT’, RECL=32, UNIT=IN+6) 
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PARANETER 


The parameter statement assigns a name to a constant. 


Syntax 





PARAMETER € namel = cl [, name2 = c2 ] 





name 
is the name of a specific constant in this program unit Ceven 
if it looks like a hexadecimal constant, for example, 
ZOABC). The name must be defined only once in a PARAMETER 
statement of a program unit. 

c 


is a constant or a constant expression of type integer, real, 
complex, Logical, or character. 


Before using the PARAMETER statement, name must have been 
specified by the IMPLICIT statement or an explicit type 
statement. COtherwise the predefined conventions are used.) 


The type and length of a name of a constant must not be changed by 
subsequent specification statements, including IMPLICIT 
statements. The following is invalid: 


PARAMETER CINT=10) 
IMPLICIT CHARACTERX5(T) 


If the length of a character constant represented by a name has 
been explicitly specified previously or has been been specified 
as an asterisk, the Length is considered to be the length of the 
value of the character expression (c). 


If the name (name) is of type integer, real, or complex, the 
corresponding expression (c) must be a constant, the name of a 
constant, or another expression enclosed in parentheses. The 
exponentiation operator is not permitted unless the exponent is 
of type integer. 


If the name (name) is of type character, the corresponding 
expression (c) must be a character expression containing only 
character constants or names of character constants. The 
expression result cannot exceed 255 characters in length. 


If the name (name) is of type logical, the corresponding 
expression (c) must be a logical expression containing only 
logical constants or names of logical constants. 


Each (name) is the name of a constant that becomes defined with 
the value of the expression (c) that appears to the right of the 
equal sign. The value assigned is determined by the rules used for 
assignment statements (see Figure 18 and Figure 19). 


Any name of a constant that appears in an expression (c) must be 
defined by appearing previously on the left of an equal sign in 
the same or a preceding PARAMETER statement in the same program 
unit. If it is in the same PARAMETER statement, it must appear to 
the left of its usage. 


Once defined, the name can be used in a subsequent expression or a 
DATA statement instead of the constant it represents. It must not 
be part of a FORMAT statement or a format specification. 


The name of a constant must not be used to form part of another 
constant; for example, any part of a complex constant. 
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PAUSE STATEMENT 


The PAUSE statement temporarily halts the execution of the object © 
program and may display a message. 


Syntax 





PAUSE [En] 


PAUSE C'’message' ] 


n 
a string of 1 through 5 decimal digits. 


‘message’ 
a character constant enclosed in apostrophes and containing 
alphameric and/or special characters. Within the literal, an 
apostrophe is indicated by two successive apostrophes. 


If either n or ‘message’ is specified, PAUSE displays the 
requested information. The program waits until operator 
intervention causes it to resume execution, starting with the 
next statement after the PAUSE statement or the next iteration of 
the DO loop, if it is the last statement of a DO range. For 


further information, see VS FORTRAN Application Programming: 
Guide, 
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PRINT 


The PRINT statement transfers data from internal storage to an 
external device. 


Syntax 





PRINT fmt C,list] 


=s 
= | 
rt 


can be one of the following: 


A statement number 

An integer variable 
character constant 
character array element 
character array name 
character expression 


rPrr 


Se ET CA 


e An array name 


Lens END OF IBM EXTENSION ————————— 


e An asterisk that indicates that printing is to be 
performed according to the data transmission rules of 
list-directed WRITE. 


See "WRITE Statement—Formatted with Direct Access” on page 
184 for explanations of these format identifiers. 


is a list of output items and implied DO lists. An output 
list item can be: 


A variable name 

An array element 

A character substring 

An array name 

Any expression Cexcept a character expression involving 
concatenation of operands whose length specification is 
an asterisk) 


For a discussion of Implied DO lists, see "Implied DO in an 
Input/Output Statement” on page 75. 


A function must not be referenced within an expression if 
such a reference causes an input or output statement to be 
executed. 


If list 1s omitted, a blank record is transmitted to the 
output device unless the FORMAT statement referred to 
contains, as its first specification, a character constant 
or slashes. In this case, the record Cor records) indicated 
by these specifications are transmitted to the output 
device. 


PRINT fmt has the same effect as a WRITE Cun,fmt) List where fmt 


rr eee 


and list are defined as above, and the value of un is installation 
dependent. 


Valid PRINT Statement: 
PRINTX¥,EIGHT8 
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PROGRAM STATEMENT 


The PROGRAM statement assigns a name to a main program. It must be 
the first statement in the main program. 


Syntax 





PROGRAM name 


name 
is the name of the main program in which this statement 
appears. 


A main program cannot contain any BLOCK DATA, SUBROUTINE, 
FUNCTION, or ENTRY statements. 


ee TEM EXER 


A RETURN statement may appear; it has the same effect as a STOP 
statement. 


Lannie ENT OF IBM EXTENSION —————— 


The PROGRAM statement can only be used in a main program but is 
not required. If it is used, it must be the first statement of the 
main program. If it is not used, the name of the main program is 
assumed by this compiler to be MAIN. 


The name must not be the same as any other name in the main 
program or as the name of a subprogram or common block itn the same 
executable program. The name of a program does not have any type 
and the other specification statements have no effect on this 
name. 


Execution of a program begins with the execution of the first 
executable statement of the main program. A main program may not 
be referred to from a subprogram or from itself. 
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READ STATEMENTS 





> The READ statements transfer data from an external device to 
storage or from one internal file to another. 


Forms of the READ Statement: 

Se LE EN ee —— 
1. READ Statement—Asynchronous 

rons EN] OF IBM EXTENSION ————— 
READ Statement—Formatted with Direct Access 

READ Statement—Formatted with Sequential Access 

READ Statement—Unformatted with Direct Access 

READ Statement—Unformatted with Sequential Access 

READ Statement with Internal Files 


a HD WwW FS Ww BD 


READ Statement with List-Directed I/0 


ere Pa Ae ON ers 
8. READ Statement with NAMELIST 


—_______- END OF IBM EXTENSION ————————___" 
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READ Statement—Asynchronous 





The asynchronous READ statement transmits unformatted 
sequential data between direct access or sequential storage 
devices. The asynchronous READ statement provides high-speed 
input. The statements are asynchronous in that while data 
transfer is taking place, other program statements may be 
executed. An OPEN statement is not permitted for asynchronous 
I/7Q. The unit and statement identifier are the only items 
allowed within the parentheses. 


Syntax 





READ € CUNIT=Jun, ID=id ) Clist] 


UNIT=un 
un is the reference to an I/0 unit. It is required and can 
optionally be preceded by UNIT=. un is an integer 
expression of length 4 whose value must be zero or 





positive. 
ID=id 
idis an integer constant or integer expression of length 
4. It is the identifier for the READ statement. 
list 
is an asynchronous I/0 list and may have any of four forms: 
e 
el...e¢ 
[See 
svete 
where 


is the name of an array. 


el and e2 
are the names of elements in the same array. The 
ellipsis €...) is an integral part of the syntax of 


the list and must appear in the positions indicated. 


The unit specified by un must be connected to a file that 
resides on a sequential or direct-access device. The array (Ce) 
or array elements Cel through e2) constitute the receiving area 
for the data to be read. 


The asynchronous READ statement initiates a transmission. The 
WAIT statement, that must be executed for each asynchronous 
READ, terminates the transmission cycle. When executed after an 
asynchronous READ, the WAIT statement enables the program to 
refer to the transmitted data. This process ensures that a 
program will not refer to a data field while transmission to it 
is still in progress. 


The asynchronous READ statement differs from other READ 
statements in that a special parameter, ID=id, is specified 
within the parentheses of the statement. ID=id establishes a 
unique identification for the READ statement. 


Synchronous READ statements may be executed for the file only 
after all asynchronous READ and WRITE operations have been 
completed and a REWIND has been executed for the file. 
Conversely, asynchronous READ statements may be executed for a 
file previously read synchronously after a REWIND or CLOSE has 
been executed. 
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Execution of an asynchronous READ statement initiates reading of 
the next record on the specified file. The record may contain 
more or less data than there are bytes in the receiving area. If 
there is more data, the excess is not transmitted to the 
receiving area; if there is less, the values of the excess array 
elements remain unaltered. The extent of the receiving area is 
determined as follows: 


° If e is specified, the entire array is the receiving area. 


° If el...e2 is specified, the receiving area begins at array 
element el and includes every element up to and including 
e2. The subscript value of el must not exceed that of e2. 


e If el... is specified, the receiving area begins at element 
el and includes every element up to and including the last 
element of the array. 


° If ...e2 is specified, the receiving area begins at the 
first element of the array and includes every element up to 
and including e2. 


If list is not specified, there is no receiving area, no data is 
transmitted, and a record is skipped. 


Subscripts in the list of the asynchronous READ must not be 
defined as array elements in the receiving area. If a function 
reference is used in a subscript, the function reference may not 
perform I/0 on any file. 


Given an array with elements of length len, transmission begins 
with the first len bytes of the record being placed in the first 
specified Cor implied) array element. Each successive len bytes 
of the record are placed in the array element with the next 
highest subscript value. Transmission ceases after all elements 
of the receiving area have been filled, or the entire record has 
been transmitted—whichever occurs first. If the record length 
is less than the receiving area size, the last array element to 
receive data may receive fewer than len bytes. 


The specified array may be multidimensional. Array elements are 
filled sequentially. Thus, during transmission, the leftmost 
subscript quantity increases most rapidly, and the rightmost 
least rapidly. 


Any number of program statements may be executed between an 
asynchronous READ and its corresponding WAIT, subject to the 
following rules: 


° No array element in the receiving area may appear in any 
such statement. This and the following rules apply also to 
indirect references to such array elements; that is, 
reference to or redefinition of any variable or array 
element associated by COMMON or EQUIVALENCE statements, or 
argument association with an array element in the receiving 
area. 


6 No executable statement may appear that redefines or 
undefines a variable or array element appearing in the 
subscript of el or e2. See "Valid and Invalid VS FORTRAN 
Programs” on page l. 
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° If a function reference appears in the subscript expression 
of el or e2, the function may not be referred to by any 
statements executed between the asynchronous READ and the 
corresponding WAIT. Also, no subroutines or functions may 
be referred to that directly or indirectly refer to the 
function in the subscript reference, or to which the 
subscript function directly or indirectly refers. 





6 No function or subroutine may be executed that performs 
input or output on the file being manipulated, or that 
contains object-time dimensions that are in the receiving 
area (whether they be dummy arguments or in a common block). 


Valid READ Statement: 
READ CID=10, UNIT=3*IN-3) ACTUALC3)...ACTUALC7) 
L—______. END OF IBM EXTENSION ——————————_"_—__" 
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READ Statement——Formatted with Direct Access 


This READ statement transfers data from an external direct-access 
device into internal storage. The user specifies in a FORMAT 
statement Cor in a reference to a FORMAT statement) the 
conversions to be performed during the transfer. The data must 
reside on an external file that is connected for direct access to 
a unit Csee "OPEN Statement” on page 137). 


Syntax 





READ € CUNIT=Jun, CFMT=J]fmt, REC=rec [, ERR=stn] 


C, IOSTAT=ios] ) Clist] 


UNIT=un 
un is the reference to an I/0 unit. It is required and can, 
optionally, be preceded by UNIT=. un is an integer 
expression of length 4 whose value must be zero or positive. 


If UNIT= is specified, FMT= must be used. 


If UNIT= is not specified, the unit reference number must 
appear first. 


FMT=fimnt 
fmt is a required format identifier. It can, optionally, be 
preceded by FMT=. 


If FMT= is not specified, the format identifier must appear 
second. 


If both UNIT= and FMT= are specified, all the parameters, 
@ except list, can appear in any order. 


The format identifier (fmt) can be: 


A statement number 

An integer variable 
character constant 
character array element 
character array name 
character expression 


rPrrYr 


a LT SA rr enens 
An array name 


Kn nmenens END OF IBM EXTENSION —————————————— 


The statement number must be the statement number of a FORMAT 
statement in the same program unit as the READ statement. 


The integer variable must have been initialized by an ASSIGN 
statement with the number of a FORMAT statement. The FORMAT 
statement must be in the same program unit as the READ 
statement. 


The character constant must constitute a valid format. The 
constant must be delimited by apostrophes, must begin with a 
left parenthesis, and end with a right parenthesis. Only the 
format codes described in the FORMAT statement can be used 
between the parentheses. An apostrophe in a constant 
enclosed in apostrophes is represented by two consecutive 
apostrophes. 


The character array element must contain character data 
whose leftmost character positions constitute a valid 
format. A valid format begins with a left parenthesis and 
ends with a right parenthesis. Only the format codes 
described in the FORMAT statement can be used between the 
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150 


parentheses. Blank characters may precede the left 
parenthesis and character data may follow the right 
parenthesis. The length of the format identifier must not 
exceed the length of the array element. 


The character array nam2 must contain character data whose 
leftmost characters constitute a valid format identifier. 
The length of the format identifier may exceed the length of 
the first element of the array; it is considered the 
concatenation of all the array elements of the array in the 
order given by array element ordering. 


aaa acai 2 | aca esas 


The array nama may be of type integer, real, double 
precision, logical, or complex. 


The data must be a valid format identifier as described 
under character array name above. 


$$$ nnn END OF IBM EXTENSION ———————_—————_——_————— 


The character expression may contain concatenations of 
character constants, character array elements and character 
array names. Its value must be a valid format identifier. The 
operands of the expression must have length specifications 
that contain only integer constants or names of integer 
constants. (See "VS FORTRAN Expressions” on page 25.) 


REC=rec 
rec is a relative record number. It is an integer expression 
whose value must be greater than zero. It represents the 
relative position of a record within the external file 
associated with un. The relative record number of the first 


record is l. 


ERR=stn 
stn is the number of a statement in the same program unit as 
the READ statement. Transfer is made to stn if an error is 


detected. 


IOSTAT=105 
ios 1s an integer variable or an integer array element of 
length 4. Its value is positive if an error is detected; 
negative if an end of file is detected; and zero if no error 
is detected. VSAM return and reason codes are placed in ios. 





~ is an I/O list. It can contain variable names, array element 
names, character substring names, array names, and implied 
DO lists. See "Implied DO in an Input/Output Statement” on 
page 75. 
An item in the List, or an item associated with it through 
EQUIVALENCE, COMMON, or argument passing, must not contain 
any portion of the format identifier fmt. 

Valid READ Statements: 

READ Cun,fmt,REC=rec) List 

READ Cun,FMT=fmt,REC=rec) List 

READ CUNIT=un,FMT=fmt,REC=rec) List 


READ CREC=rec,FMT=fmt,UNIT=un) 
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Invalid READ Statements: 
READ (fmt,un,REC=rec) un must appear before fmt. 


READ CFMT=fmt,un,REC=rec) List un must appear first because 
UNIT= is not specified. 


READ (b,UNIT=un,REC=rec) List FMT must be used because 
UNIT= is specified. 


READ Cun,fmt) list REC=rec must be specified 
for direct-access. 





If this READ statement is encountered, the unit specified must 
exist and the file must be connected for direct access. If the 
unit is not connected to a file, it 15 assumed to have been 
preconnected through job control language and an implicit OPEN is 
performed to a default file name. If the file is not preconnected, 
an error is detected. 


This statement permits a programmer to read records randomly from 
any location within an external file. It contrasts with the 
sequential input statements that process records, one after the 
other, from the beginning of an external file to its end. With the 
direct-access statements, a programmer can go directly to any 
record in the external file, process a record and go directly to 
any other record without having to process all the records in 
between. 


Each record ina direct-access file has a unique number associated 
with it. This number is the same as specified when the record is 
written. The programmer must specify in the READ statement not 
only the unit reference number, but also the number of the record 
to be read. Specifying the record number permits operations to be 
performed on selected records of the file instead of on records in 
their sequential order. 


The OPEN statement specifies the size and the type of the records 
in the direct-access file. All the records of a file connected for 
direct access have the same length. 


DATA TRANSMISSION: A READ statement with FORMAT starts data 
transmission at the beginning of the record specified by REC=rec. 
The format codes in the format identifier fmt are taken one by one 
and associated with every item of the list in the order they are 
specified. The number of character data specified by the format 
code is taken from the record, converted according to the format 
code and transmitted into the storage associated with the 
corresponding item in the list. Data transmission stops when data 
has been transmitted to every item of the list or when the end of 
the record specified by rec is reached. 


If the list is not specified and the format identifier starts with 
an I, E, F, D, G, or L format code, or is empty (that is, 
FORMAT(C)), the internal record number is increased by one but no 
data is transferred. 


————— ee 1S LACS ee 


VS FORTRAN adds that, if the format identifier starts with a Q 
or Z format code, the internal record number is increased by one 
but no data is transferred. 


—___—- END OF IBM EXTENSION ——————____" 


DATA AND I/70 LIST: The length of every FORTRAN record is specified 
in RECL of the OPEN statement. If the record rec contains more 
data than is necessary to satisfy all the items of the list and 
the associated format identifier, the remaining data is ignored. 
If the record rec contains less data than is necessary to satisfy 
all the items of the list and the associated format identifier, an 
error 1s detected. If the format identifier indicates (for 
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example, slash format code) that data be taken from the next 
record, then the internal record number rec is increased by one 
and data transmission continues with the next record. The INQUIRE 
statement can be used to determine the record number. 








Transfer is made to the statement specified by ERR if an error 1s 
detected. No indication is given of which record or records could 
not be read, only that an error occurred during transmission of 
data. If IOSTAT is specified, a positive integer value is assigned 
to ios when an error is detected. If ERR is specified, then 
execution continues with the statement specified with the ERR, if 
present, or with the next statement if ERR is not specified. If 
ERR and IOSTAT are both omitted, program execution is terminated 
when an error is detected. 


Valid READ Statement: 
READ CUNIT=2*%IN-10, FMT='C1I9)", REC=3) 





152 VS FORTRAN Language Reference 








READ (Formatted, Sequential Access) 
READ Statement—Formatted with Sequential Access 


© This READ statement transfers data from an external I/0 device to 
storage. The user specifies in a FORMAT statement (or ina 
reference to a FORMAT statement) the conversions to be performed 
during the transfer. The data must reside in an external file that 
is connected for sequential access to a unit. (See "OPEN 
Statement” on page 137.) 


The sequential I/0 statements with format identifiers process 
records one after the other from the beginning of an external file 
to its end. 


Syntax 





READ € CUNIT=Jun, CFMT=Jfmt £C, ERR=stn] (€, END=stn] 
C, IOSTAT=ios] ) Clist] 


READ fmt C, list] 


UNIT=un 
un is the reference to an I/0 unit. It is required and can, 
optionally, be preceded by UNIT=. un is one of the following: 





* An integer expression of length 4 whose value must be 
zero or positive 

e An asterisk (*) representing an installation-dependent 
unit 


If UNIT= is specified, FMT= must be used and all the 
parameters can appear in any order. 


If UNIT= is not specified, un must appear first in the 
statement. The other parameters may appear in any order. 





In the form of the READ where un is not specified, un is 
installation dependent. 


FMT=fmt 
fmt is a required format identifier. It can optionally be 
preceded by FMT=. 





If FMT= is not specified, the format identifier must appear 
second. 


If both UNIT= and FMT= are specified, all the parameters, 
except list, can appear in any order. 





The format identifier (fmt) can be: 
A statement number 
An integer variable 
A character constant 
A character array element 


A character array name 
A character expression 


——————— ee TO CN 
An array name 


-—_________. END OF IBM EXTENSION ———-H—___ 


See "READ Statement—Formatted with Direct Access" on page 
149 for explanations of these format identifiers. 
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ERR=stn 


stn 1s the number of an executable statement in the program 
unit containing the READ statement. Transfer is made to stn 


if an error is detected. 


END=stn 





1s the number of an executable statement in the program unit 
containing the READ statement. Transfer is made to stn when 


the end of the external file is encountered. 


IOSTAT=i05 


105 15 an integer variable or an integer array element of 


length 4. 


Its value is positive if an error is detected; 


negative if an end of file is detected; and zero if no error 
1s detected. VSAM return and reason codes are placed in ios. 





is an 140 list. It can contain variable names, array element 
names, character substring names, array names, and implied 
DO lists. See "Implied DO in an Input/Output Statement" on 
page 75. In the form of the READ where un is not specified, 
if the list is not present, the comma must be omitted. An 
item in the list, or an item associated with it through 
EQUIVALENCE, COMMON or argument passing, must not contain 


any portion of the format identifier fmt. 
Valid READ Statements: 
READ Cun,fmt) list 


READ Cun, FMT=fmt) list 
READ 
READ 


READ 


CUNIT=un, FMT=fmt) list 
fmt, List 

(5,98) A,B,(CCI,K),I=1,10) 
READ CIOSTAT=I0S, UNIT=2*IN-10, FMT="CI9)', 
Invalid READ Statements: 


READ (fmt,un) 


FMT=fmt can appear first. 


END=3600) 





n must appear before fmt. 


READ 


READ (fmt, 


READ FMT=fmt, 


If this READ statement is encountered, 
exist and the file must be connected for sequential access. 
unit is not connected toa file, 


CFMT=fmt, un) list un must appear first because 


UNIT= is not specified. 





FMT must be used because 
UNIT= 185 specified. 


FMT must not be used in this 
form of READ. 


UNIT=un) list 


ats 


the unit specified must 
If the 
it 15 assumed to have been 


preconnected through job control language and an implicit OPEN is 


performed to a default file name. 


If the file is not preconnected, 


an error is detected. 


DATA TRANSMISSION: A READ statement with FORMAT starts data 
transmission at the beginning of a record. The format codes in the 


format 


identifier fmt are taken one by one and associated with 


every item of the list in the order they are specified. The number 
of character data specified by the format code is taken from the 
record, converted according to the format code, and transmitted 
into the storage associated with the corresponding item in the 
list. Data transmission stops when data has been transmitted to 
every item of the list or when the end of file 1s reached. 


DATA AND I70 LIST: 
necessary to satisfy all the items of the list and the associated 


format specification, 


154 


If the record contains more data than is 


the extra data is skipped over. The next 
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READ statement with FORMAT will start with the next record if no 
other I/0 statement is executed on that file. If the record 
contains less data than is necessary to satisfy all the items of 
the list and the associated format identifier, an error is 
detected. 


If the list 15 not specified and the format identifier starts with 
an I, E, F, D, G, or L format code or is empty (that is, FORMAT()), 
a record is skipped over. 


—————————————— eee TE ELIE OO ee ae 
VS FORTRAN adds the Q and Z format codes to the list. 


rn END OF IBM EXTENSION ———————_——_——_——_—————_— 


Transfer is made to the statement specified by ERR if an error is 
detected. No indication is given of which record or records could 
not be read, only that an error occurred during transmission of 
data. If IOSTAT is specified, a positive integer value is assigned 
to i085 when an error is detected. Then execution continues with 
the statement specified with the ERR, if present, or with the next 
statement if ERR is not specified. If ERR and IOSTAT are both 
omitted, object program execution is terminated when an error is 
detected. 


END OF FILE: Transfer is made to the statement specified by END 
when the end of the file is encountered; that is, when a READ 
statement is executed after the last record on the file has 
already been read. No indication is given of the number of list 
items read into before the end of the file was encountered. If 
IOSTAT=i0s is specified, a negative integer value is assigned to 
jos. Then execution continues with the statement specified with 
END, if present, or with the next statement if END is not 
specified. If END and IOSTAT are both omitted, object program 
execution is terminated when the end of the file is encountered. 
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READ Statement-—Unformatted with Direct Access 


156 


This statement transfers data without conversion from an external 
direct-access I/0 device into internal storage. The data must 
reside on an external file that is connected with direct access to 
a unit (see "OPEN Statement” on page 137). 


Syntax 
READ € CUNIT=Jun, REC=rec [, ERR=stn] [, IOSTAT=ios] ) 





Clist] 


UNIT=un 
un is the reference to an I/0 unit. It is required and can, 
optionally, be preceded by UNIT=. un is an integer 
expression of length 4 whose value must be zero or positive. 


If UNIT= is specified, all the parameters can appear in any 
order. 


If UNIT= is not specified, un must appear first in the 
statement. The other parameters may appear in any order. 


REC=rec 
rec is a relative record number. It is an integer expression 
whose value must be greater than zero. It represents the 
relative position of a record within the external file 
associated with un. The relative record number of the first 
record jis l. 


ERR=stn 
stn is the number of a statement in the same program unit as 
the READ statement. Transfer 1s made to stn if an error is 
detected. 


IOSTAT=i05 
105 185 an integer variable or an integer array element of 
length 4. Its value is positive if an error is detected; 
negative if an end of file is encountered; and zero if no 
error 1s detected. VSAM return and reason codes are placed in 
ios. 


list 





is an IZO list and can contain variable names, array 
elements, character substring names, array names, and 
implied DO lists. See "Implied DO in an Input/Output 
Statement™ on page 75. 
Valid READ Statements: 
READ Cun,REC=rec) list 
READ (CREC=rec, UNIT=un) 
READ CIOSTAT=IOS, UNIT=11, REC=3) ACTUAL(C3)¢1:) 
READ CIOSTAT=IACTC1),UNIT=3*IN-2,FMT=*%) ACTUAL(C1) 
Invalid READ Statements: 


READ (REC=rec,un) list UNIT must be used because un 
is after REC=rec. 


READ CUNIT=un) list REC=rec must be specified for 
direct files. 


If this READ statement is encountered, the unit must exist and the 
file must be connected for direct access. If the unit 15 not 
connected to a file, it 15 assumed to have been preconnected 
through job control language and an implicit OPEN is performed to 
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a default file name. If the file is not preconnected, an error is 
detected. 


DATA TRANSMISSION: A READ statement without format starts data 
transmission at the beginning of the record specified by REC=rec. 
The number of character data specified by the type of each item in 
the list is taken from the record and transmitted into the storage 
associated with the corresponding item in the list. Data 
transmission stops when data has been transmitted to every item of 
the list. 


If the list is not specified, the internal record number is 
increased by one but no data is transferred. The INQUIRE statement 
can be used to determine the record number. 


DATA AND I70 LIST: The length of the FORTRAN records in the file 
are specified by RECL in the OPEN statement. If the record rec 
contains more data than is necessary to satisfy all the items of 
the list, the extra data is ignored. If the record rec contains 
less data than is necessary to satisfy all the items of the list, 
an error is detected. 


Transfer is made to the statement specified by ERR if an error is 
detected. No indication is given of which record or records could 
not be read, only that an error occurred during transmission of 
data. If IOSTAT=ios is specified, a positive integer value is 
assigned to ios when an error is detected. Then execution 
continues with the statement specified with ERR, if present, or 
with the next statement if ERR is not specified. If ERR and IOSTAT 
aie ated omitted, program execution is terminated when an error is 
etected. 
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READ Statement——Unformatted with Sequential Access 





This READ statement transfers data without conversion from an © 
external I/0 device into internal storage. The data resides on an 
external file that is connected for sequential access to a unit 

(see "OPEN Statement” on page 137). 


The sequential I/0 statements without format control process 
records one after the other from the beginning of an external file 
to ts end. 


The ENDFILE, REWIND, and BACKSPACE statements may be used to 
manipulate the file. 


Syntax 
READ € CUNIT=Jun [, ERR=stn] ([, END=stn] [, IOSTAT=ios] ) 





Clist] 


UNIT=un 
un 1s the reference to an I/0 unit. It is required and can, 
optionally, be preceded by UNIT=. un is one of the following: 


* An integer expression of length 4 whose value must be 
zero or positive 

8 An asterisk (*) representing an installation-dependent 
unit 


If UNIT= is specified, all the parameters can appear in any 


order. 
If UNIT= is not specified, un must appear first in the | 
statement. The other parameters may appear in any order. 


ERR=stn 
stn is the number of a statement in the same program unit as 
he READ statement. Transfer is made to stn if an error 15 





END=stn 
is the number of an executable statement in the program unit 
containing the READ statement. Transfer is made to stn when 
the end of the external file is encountered. 


IOSTAT=i105 
i105 is an integer variable or an integer array element of 
length 4. Its value is positive if an error is detected; 
negative if an end of file is encountered; and zero if no 
error condition is detected. VSAM return and reason codes 


are placed in ios. 








is an I70 list. It can contain variable names, array element 
names, character substring names, array names, and implied 
DO lists. See "Implied DO in an Input/Output Statement™ on 
page 75. 
Valid READ Statements: 

READ Cun) list 

READ CUNIT=un) list 

READ Cun) 


READ CIOSTAT=10S, UNIT=11) ©} 
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Invalid READ Statements: 
READ un, list un must be in parentheses. 
READ, list (un) must be specified. 


If this READ statement is encountered, the unit specified by un 
must be connected to a file for sequential access. If the unit is 
not connected to a file, it is assumed to have been preconnected 
through job control language and an implicit OPEN is performed to 
a default file name. If the file is not preconnected, an error is 
detected. 


DATA TRANSMISSION: A READ statement without conversion starts 
data transmission at the beginning of a record. The data specified 
by the item in the list is taken from the record and transmitted 
into the storage associated with the corresponding item in the 
list. Data transmission stops when data has been transmitted to 
every item of the list or when the end of file is reached. 


If the list is not specified, a record is passed over without 
transmitting any data. 


DATA AND I/O LIST: If the record contains more data than is 
necessary to satisfy all the items of the list, the extra data 15s 
skipped over. The next READ statement without format will start 
with the next record if no other I/0 statement is executed on that 
file. If the record contains less data than 1s necessary to 
satisfy the list, an error is detected. 


Transfer is made to the statement specified by ERR if an error is 
detected. No indication is given of which record or records could 
not be read, only that an error occurred during transmission of 
data. If IOSTAT=ios is specified, a positive integer value is 
assigned to ios when an error is detected. Then execution 
continues with the statement specified with ERR, if present or 
With the next statement if ERR is not specified. If ERR and IOSTAT 
a ne program execution is terminated when an error is 
etected. 


END OF FILE: Transfer is made to the statement specified by END 
when the end of the file is encountered; that is, when a READ 
statement is executed after the last record on the file has 
already been read. No indication is given of the number of list 
items read into before the end of the file was encountered. If 
IOSTAT=ios is specified, a negative integer value is assigned to 
ios when an end of file is detected. Then execution continues with 
the statement specified with END if present, or with the next 
statement if END is not specified. If END and IOSTAT are both 
omitted, program execution is terminated when the end of the file 
1s encountered. 
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READ Statement with Internal Files 


This READ statement transfers data from one area of internal 
storage into another area of internal storage. The user specifies 
in a FORMAT statement (Cor ina reference to a FORMAT statement) 
the conversions to be performed during the transfer. The area in 
internal storage that is read from is called an internal file. 


An internal file 1s always 
& Connected to a unit 


@ Positioned before data transmission at the beginning of the 
storage area represented by the unit identifier 


° Accessed sequentially with a FORMAT statement (see "FORMAT 
Statement" on page 91) 


Syntax 





READ € CUNIT=Jun, CFMT=Jfmt [C, ERR=stn] [C, END=stn] 


[, IOSTAT=ios] ) LClist] 


UNIT=un 
un is the reference to an area of internal storage called an 
internal file. It can optionally be preceded by UNIT=. It can 
be the name of: 


A character variable 

A character array 

A character array element 
A character substring 


If UNIT= is specified, FMT= must be used. 


If UNIT= is not specified, the unit reference must appear 
first. 


FMT=fmt 
fmt is a required format identifier. It can optionally be 
preceded by FMT=. 
The format identifier can be: 


A statement number 

An integer variable 

A character constant 

A character array element 
A character expression 


———— ee TEM ERE eee 
An array name 


L_______ END OF IBM EXTENSION ———————__. 


See "READ Statement—Formatted with Direct Access™ on page 
149 for explanations of these format identifiers. 


The format specification must not be: 
® In the area un 


e Associated with un through EQUIVALENCE, COMMON or 
argument passing 


If FMT= is not specified, the format specification must 
appear second. 
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READ (Internal) 


If both UNIT= and FMT= are specified, all the parameters, 
except list, can appear in any order. 


ERR=stn 
stn is the number of a statement in the same program unit as 
READ statement. Transfer is made to stn if an error 15s 


END=stn 
is the number of an executable statement in the program unit 
containing the READ statement. Transfer is made to stn when 
the end of the storage area (un) is encountered. 


IOSTAT=i0s . He Sie 5s 
ios is an integer variable or an integer array element of 
length 4. Its value is positive if an error is detected; 
negative if an end of file is encountered; and zero if no 
error condition is detected. VSAM return and reason codes 
are placed in ios. 





is an IZO list and can contain variable names, array 
elements, character substring names, array names, and 
implied DO lists. See "Implied DO in an Input/Output 
Statement” on page 75. 

An item in the List must not be: 

° Contained in the area represented by un 


° Associated with any part of un through EQUIVALENCE, COMMON, 
or argument passing 


Valid READ Statements: 
READ Cun,fmt) list 
READ Cun, FMT=fmt) list 
READ CUNIT=un,FMT=fmt) List 
Invalid READ Statements: 
READ (Cfmt,un) list un must appear before fmt. 


READ CFMT=fmt,un) list un must appear first because 
UNIT= is not specified. 





READ (Cfmt,UNIT=un) list FMT must be used because 
UNIT= is specified. 





DATA TRANSMISSION: An internal READ statement starts data 
transmission at the beginning of the storage area specified by un. 
The format codes in the format specification fmt are taken one by 
one and associated with every item of the list in the order they 
are specified. The number of character data specified by a format 
code is taken from the storage area un, converted according to the 
format code, and moved into the storage associated with the 
corresponding item in the list. Data transmission stops when data 
has been moved to every item of the list or when the end of the 
storage area a is reached. 


If un is a character variable, a character array element name, or 
a character substring name, it is treated as one record only in 
relation to the format identifier. 


If un is a character array name, each array element is treated as 
one record itn relation to the format identifier. 


DATA AND I70 LIST: The length of a record is the length of the 


character variable, character substring name, character array 
element specified by un when the READ statement is executed. 
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READ (Internal) 


If a record contains more data than is necessary to satisfy all 
the items in the List and the associated format identifier, the 
remaining data is ignored. 





If a record contains less data than is necessary to satisfy all 
the items in the list and the associated format identifier, an 
error 1s detected. 


If the format identifier indicates (for example, slash format 
code) that data be moved from after the character variable, 
character substring, or the last array element of a character 
array, an end of file is detected. If it is not the last array 
apn in the character array, data is taken from the next array 
element. 


Transfer is made to the statement specified by ERR if an error is 
detected. No indication is given of which record or records could 
not be read, only that an error occurred during transmission of 
datun. If IOSTAT=io0os is specified, a positive integer value is 
assigned to ios when an error is detected. Then execution 
continues with the statement specified with ERR if present or with 
the next statement if ERR is not specified. If ERR and IOSTAT are 
both omitted, program execution is terminated when an error is 
detected. 


END OF FILE: Transfer is made to the statement specified by END 
when the end of the file is encountered; that 1s, when a READ 
statement is executed after the last record on the file has 
already been read. No indication is given of the number of list 
items read into before the end of the file was encountered. If 
IOSTAT=ios is specified, a negative integer value is assigned to 
ios when an end of file is detected. Then execution continues with 
the statement specified with END if present or with the next 
statement if END is not specified. If END and IOSTAT are both 
omitted, program execution is terminated when the end of the file 


is encountered. ©} 
Example: 

1 CHARACTER¥ 120 CHARVR 

2 READ CUNIT=5, FMT=100) CHARVR 
100 FORMAT (A120) 

3 ASSIGN 200 TO J 

a IF CCHARVR €3:4).EQ. "AB") ASSIGN 300 TO J 

5 READCUNIT = CHARVR, FMT=J) Al, A2;, A3 
200 FORMATCSX%,F5.15 Fi0.35 3Xs FlZ.8) 
300 FORMAT (4X, F3.1, F6.3, 20X, F8.43 
Statement 1 defines a character variable, CHARVR, of fixed length 
120. Statement 2 reads into CHARVR 120 characters of input. 
Statement 3 assigns the format number 200 to the integer variable 
J. Statement 4 tests the third and fourth characters of CHARVR to 
determine which type of input is to be processed. If these two 
characters are AB, then the format numbered 300 replaces the 
format numbered 200 and is used for processing the data. This 15s 
done by assigning 300 to the integer variable J. Statement 5 reads 


the file and performs the conversion, using the appropriate 
FORMAT statement and assigning values to Al, A2, and A3. 
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READ (List-Directed) 
READ Statement nith List-Directed I/0 


© This statement transfers data from an external device into 
internal storage. The type of the items specified in this 
statement determines the conversion to be performed. The data 
resides on an external file that is connected for sequential 
access to a unit (see "OPEN Statement” on page 137). 





Syntax 
READ € CUNIT=Jun, CFMT=]* C, ERR=stn] [, END=stn] 
CL, IOSTAT=ios] ) Clist] 





READ * [C, list] 


UNIT=un 
un is the reference to an I[/0 unit. It its required in the 
first form of the READ statement and can, optionally, be 
preceded by UNIT=. un is one of the following: 


& An integer expression of length 4 whose value must be 
zero or positive 


* An asterisk (*) representing an installation-dependent 
unit 


If UNIT= is specified, all the parameters can appear in any 
order. 


If UNIT= is not specified, un must appear first in the 
statement. The other parameters may appear in any order. 


In the form of the READ where un is not specified, un is 
installation dependent. 


FMT=% 
specifies that a list-directed READ is to be executed. It can 
optionally be preceded by FMT-. 


If FMT= is not specified, the format identifier must appear 
second. 


If both UNIT= and FMT= are specified, all the parameters, 
except list, can appear in any order. 


ERR=stn 
stn is the number of a statement in the same program unit as 
READ statement. Transfer is made to stn if an error is 


is the number of an executable statement in the program unit 
containing the READ statement. Transfer is made to stn when 
the end of the external file is encountered. 


IOSTAT=i05s 
ios 1s an integer variable or an integer array element of 
length 4. Its value is positive if an error is detected; 
negative if an end of file is encountered; and zero if no 
error condition is detected. VSAM return and reason codes 
are placed in ios. 





is an I/O list and can contain variable names, array element 
names, character substring names, array names, and implied 
DO lists. See "Implied DO in an Input/Output Statement" on 


@ page 75. 
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READ (List-Directed) 
Valid READ Statements: 














READ Cun,*) list 

READ Cun,FMT=*) list 

READ CFMT=*,UNIT=un) list 
READ (%,%) list 

READ *, list 


READ CIOSTAT=IACTC1), UNIT=3*IN-2, FMT=*%) ACTUAL(1) 
Invalid READ Statements: 
READ (¥,un) list un must appear before *. 


READ CFMT=%,un) list un must appear first because 
UNIT= 1s not specified. 


READ (*,UNIT=un) List FMT must be used because 
UNIT= is specified. 


READ FMT=*®, list FMT must not be specified. 


If this READ statement is encountered, the unit specified by un 

must be connected to a file for sequential access. If the unit is 

not connected to a file, it 1s assumed to have been preconnected 
through job control language and an implicit OPEN is performed to 

: rite elt file name. If the file is not preconnected, an error is 
etected. 


DATA TRANSMISSION: A READ statement with lList-directed I/0 
accessing an external file starts data transmission at the 
beginning of a record. One value on the external file is 
transferred to each item of the list in the order they are 
specified. The conversion to be performed depends on the type and 
length of the name of the item tn the list. Data transmission 
stops when data has been transmitted to every item in the list, 
when a slash separator is encountered in the file or when the end 

of file is reached. 





DATA AND I/O LIST: If the record contains more data than is 
necessary to satisfy all the items of the list, the extra data is 
skipped over. The next READ statement with Llist-directed I/0 will 
start with the next record if no other I70 statement is executed 
on that file. If the record contains less data than is necessary 
to satisfy the list and the record does not have a slash after the 
last element, an error is detected. If the list has not been 
satisfied when a slash separator is found, the remaining items in 
the list remain unaltered and execution of the READ is terminated. 


Transfer is made to the statement specified by ERR if an input 
error occurs. No indication 15 given of which record or records 
could not be read, only that an error occurred during transmission 
of data. If IOSTAT=i0os is specified, a positive integer value is 
assigned to ios when an error is detected. Then execution 
continues with the statement specified with ERR, if present, or 
with the next statement if ERR is not specified. If ERR and ILOSTAT 
are both omitted, object program execution is terminated when an 
input error occurs. 





END OF FILE: Transfer is made to the statement specified by END 
when the end of the file is encountered; that is, when a READ 
statement is executed after the last record on the file has 
already been read. No indication is given of the number of list 
items read before the end of the file was encountered. If 
IOSTAT=ios is specified, a negative integer value 1s assigned to 
ios when an end of file is detected. Then execution continues with 
the statement specified with END, if present, or with the next 
statement if END 1s not specified. If END and IOSTAT are both 
omitted, object program execution is terminated when the end of 
the file is encountered. 
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ens TE ET ESL eee 


@ READ Statement with NAMELIST 


This statement transfers data from an external I/70 device into 
storage. The type of the items specified in the NAMELIST 
determines the conversions to be performed. The data resides on 
an external file that is connected for sequential access to a 
unit (see "OPEN Statement" on page 137). 


Syntax 
READ (€ un, name [, ERR=stn] [, END=stn] [C, IOSTAT=ios] ) 





un 
un is the reference to an I/0 unit. It is required. un is 
an integer expression of length 4 whose value must be zero 
or positive. 

name 





is a NAMELIST name. This name must appear as the second 
parameter in the List and must be the same as the name ina 
NAMELIST statement that precedes the READ statement (see 
"NAMELIST Statement™ on page 135). 


ERR=stn 
stn is the number of a statement in the same program unit 
as the READ statement. Transfer is made to stn if an error 
is detected. 





END=stn 
is the number of an executable statement in the program 
unit containing the READ statement. Transfer is made to 


stn when the end of the external file is encountered. 





IOSTAT=ios 
| ios is an integer variable or an integer array element of 
length 4. Its value is positive if an error is detected; 
negative if an end of file is encountered; and zero if no 
error condition is detected. VSAM return and reason codes 
are placed in ios. 


Valid READ Statements: 





READ Cun,name) 
READ CIN+IN+3, NAMEIN, IOSTAT=I10S) 
Invalid READ Statements: 


READ (Cname,un) un must appear before name. 





READ Cun,name) List list must not be specified. 








If this READ statement is encountered, the unit specified by un 
must exist and it must be connected to a file for sequential 
access. If the unit 1s not connected to a file, it is assumed to 
have been preconnected through job control language and an 
implicit OPEN is performed to a default file name. If the file 
is not preconnected, an error is detected. 


The NAMELIST I/0 statements associate the name given to the data 
in the FORTRAN program with the data itself. There is no format 
identifier but the data is converted according to the type of 
data in the FORTRAN program. The data on the external file must 
be in a specific format. See "NAMELIST Input Data™ on page 135. 


The READ statement specifies the list of data to be transferred 
by referring to a NAMELIST statement. This form of data 
transmission is useful for debugging purposes. 
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READ (NAMELIST ) 


REAL TYPE STATEMENT 


iam ENT OF IBM EXTENSION 


they are, the results are unpredictable (see "BACKSPACE 
Statement” on page 54 and "REWIND Statement" on page 169). 


DATA TRANSMISSION: A READ statement with NAMELIST starts data 
transmission from the beginning of the NAMELIST with name name 
on the external file. The names associated with the NAMELIST 
name name in the NAMELIST statement are matched with the names 
of the NAMELIST name on the external file. When a match is 
found, the value associated with the name on the external file 
15s converted to the type of the name and transferred into 
storage. If a match 1s not found, an error is detected. 


BACKSPACE and REWIND should not be used with NAMELIST I70. If @ 





DATA AND NAMELIST: The NAMELIST name name must appear on the 
external file. The variable names or array names associated 
with the NAMELIST name name in the NAMELIST statement must 
appear on the external file. They are read in the order they are 
specified in the NAMELIST statement, but they can appear in any 
order on the external file (see "NAMELIST Input Data" on page 
135 for the format of the input data). 


Transfer is made to the statement specified by ERR if an input 
error occurs. No indication is given of which record or records 
could not be read, only that an error occurred during 
transmission of data. If ERR is omitted, program execution is 
terminated when an error occurs. 


END OF FILE: Transfer is made to the statement specified by END 
when the end of the file is encountered; that 1s, when a READ 
statement is executed after the last record on the file has 
already been read. No indication is given of the number of list 
items read before the end of the file was encountered. If END is 
omitted, object program execution is terminated when the end of 
the file is encountered. 








See "Explicit Type Statement” on page 8&6. 
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RETURN STATEMENT 


RETURN 


The RETURN statement returns control to a calling program. 


— ees TEM CALE nd 


In a main program, a RETURN statement performs the same function 
as a STOP statement. 


L___- END OF IBM EXTENSION —————————__ 


The RETURN statement can be used in either a function or a 
subroutine subprogram. 


RETURH Statement in a Function Subprogram 


Function subprograms may contain RETURN statements. The RETURN 

statement signifies a logical conclusion of the computation and 
returns the computed function value and control to the calling 

program. (See also "FUNCTION Statement” on page 114.) 


syntax 
RETURN 


Execution of a RETURN statement terminates the association 
between the dummy arguments of the subprogram and the current 
actual arguments. All entities (that is, common blocks, 
variables, or arrays) within the subprogram become undefined 
except: 


® Entities specified in SAVE statements (see "SAVE Statement" 
on page 171) 


° Entities given an initial value ina DATA or explicit 
specification statement and whose initial values were not 
changed 

8 Entities in blank common 

* Entities in named common that appear in the subprogram and 


appear in at least one other program unit that is referring 
either directly or indirectly to the subprogram 


All variables that are defined with a statement number become 
undefined regardless of whether the variable is in common or 
specified in a SAVE statement. 


A function subprogram must not be referred to twice during the 
execution of an executable program without the execution of a 
RETURN statement in that subprogram. (See also "END Statement” on 
page 78.) 


RETURN Statement in a Subroutine Subprogram 





Subroutine subprograms may contain RETURN statements. The RETURN 
statement signifies a logical conclusion of the computation and 
returns control to the calling program. See also "SUBROUTINE 
Statement” on page 176. 


Syntax 
RETURN [Em] 
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RETURN 





m 
is an integer expression. If mis not specified in a RETURN 
statement, or if the value of mis less than one or greater 
than the number of asterisks in the SUBROUTINE or subroutine 
ENTRY statement that specifies the currently referenced 
name, control returns to the next statement following the 
CALL statement that initiated the subprogram reference. This 
completes the execution of the CALL statement. 


If 1 $m <¢n, where n is the number of asterisks in the 
SUBROUTINE or subroutine ENTRY statement that specifies the 
currently referenced name, the value of m identifies the mth 
asterisk in the dummy argument list. There should be a 
one-to-one correspondence between the number of alternate 
return specifiers specified in the CALL statement and the 
number of asterisks specified in the SUBROUTINE statement or 
ENTRY statement dummy argument list. However, the alternate 
return specifiers need not be unique. Control is returned to 
the statement identified by the alternate return specifier 
in the CALL statement that is associated with the mth 
asterisk in the dummy argument list of the currently 
referenced name. This completes the execution of the CALL 
statement. 


Execution of a RETURN statement terminates the association 
between the dummy arguments of the subprogram and the current 
actual arguments. All entities within the subprogram become 
undefined except: 


e Entities specified in SAVE statements. (See "SAVE Statement" 
on page 171.) 





e Entities given an initial value ina DATA or explicit 
specification statement and where initial values were not 
changed. 

e Entities tn blank common. 

® Entities in named common that appear in the subprogram and 


appear in at least one other program unit that is referring 
either directly or indirectly to the subprogram. 


All variables that are defined with a statement number become 
undefined regardless of whether the variable 15 in common or 
specified ina SAVE statement. 


A subprogram must not be referred to twice during the execution of 
an executable program without the execution of a RETURN statement 
in that subprogram. 


A CALL statement that is used with a RETURN m form may be best 


understood by comparing it to a CALL and computed GO TO statement 
in sequence. For example, the following CALL statement: 


CALL SUB CP,*20,90,%35,R,*22) 
is equivalent to: 


CALL SUB (P,Q@,R,1) 
GO TO (20,35,22),I 


where the index I is assigned a value of l>» 2, or 3 tn the called 
subprogram. 
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REWIND 


The REWIND statement positions an external file at the beginning 
of the first record of the file. The external file must be 
connected with sequential access to a unit. (See "OPEN Statement” 
on page 137.) 


Syntax 





REWIND un 


REWIND € CUNIT=Jun C, ERR=err] C, IOSTAT=ios] ) 


UNIT=un 
un is the reference to an I/O unit. It can, optionally, be 
preceded by UNIT= if the second form of the statement is 
used. un is an integer expression of length 4 whose value 
must be zero or positive. 


ERR=-err 
is optional. err is a statement number. If an error occurs in 
the execution of the REWIND statement, control is 
transferred to the statement labeled err. That statement 
must be executable and must be in the same program unit as 
the REWIND statement. If ERR=err is omitted, execution halts 
when an error is detected. 


IOSTAT=105 
is optional. ios is an integer variable or an integer array 
element of length 4. Its value is set positive if an error is 
detected; it is set to zero if no error is detected. VSAM 
return and reason codes are placed in ios. 





If UNIT= is specified, all the parameters can appear in any order; 
otherwise un must appear first. 


If the unit specified by un is connected, it must be connected for 
sequential access. If it is not connected to a file, it is assumed 
to have been preconnected through job control language and an 
implicit OPEN is performed to a default file name. If the file is 
not preconnected, an error is detected. 


The external file connected to the unit specified by un may or may 
not exist when the statement is executed. If the external file 
does not exist, the REWIND statement has no effect. If the 
external file does exist, an end-of-file is created, if 
necessary, and the file is positioned at the beginning of the 
first record. 


The REWIND statement causes a subsequent READ or WRITE statement 
referring to un to read data from or write data into the first 
record of the external file associated with un. 


eee PE EALENS LU ey 


The REWIND statement may be used with asynchronous READ and 
WRITE statements provided that any input/output operation on 
the file has been completed by the execution of a WAIT 
statement. A WAIT statement is not required to complete the 
REWIND operation. 


$$ nnn END OF IBM EXTENSION ———————————————— 


Transfer is made to the statement specified by the ERR parameter 
if an error is detected. If the IOSTAT=ios is specified, a 
positive integer value is assigned to ios when an error is 
detected. Then execution continues with the statement specified 
with the ERR parameter, if present, or with the next statement if 
ERR is not specified. If the ERR parameter and the IOSTAT 
parameter are both omitted, program execution is terminated when 
an error 1s detected. 
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REWIND 
Valid REWIND Statements: 





REWIND (5) 

REWIND (C3¥IN-2, ERR=99999) 

REWIND CUNIT=2%INt2) 

REWIND CIOSTAT=I0S, ERR=99999,UNIT=2*XIN-10) 
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SAVE 


The SAVE statement retains the definition status of the name of a 
named common block, variable, or array after the execution of a 
RETURN or END statement in a subprogram. 


Because VS FORTRAN saves these names without user action, the SAVE 
statement serves only as a documentation aid. 


Syntax 





SAVE Enamel [C, name2 ] 


name 





iS a named common block name preceded and followed by a 
slash, a variable name, or an array name. Redundant 
appearances of an item are not permitted. 


Dummy argument names, procedure names, and names of entities ina 
common block must not appear ina SAVE statement. 


A SAVE statement without a list is treated as though it contained 
the names of all allowable items in that program unit. 


The appearance of a named common block ina SAVE statement has the 
effect of specifying all entities in that named common block. 


The execution of a RETURN statement or an END statement within a 
subprogram causes all entities within the subprogram to become 
undefined except for the following: 


e Entities specified by SAVE statements. 
° Entities in blank common. 


© Initially defined entities that have neither been redefined 
nor become undefined. 


e Entities in named common blocks that appear in the subprogram 
and appear in at least one other program unit that is 
referring, etther directly or indirectly, to that subprogram. 
The entities in a named common block may become undefined by 
execution of a RETURN or END statement in another program 
Ltt? Ui. 


Within a function or subroutine subprogram, an entity (that is, a 
common block, variable, or array) specified by a SAVE statement 
does not become undefined as a result of the execution of a RETURN 
or END statement in the subprogram. 


If a local entity that is specified by a SAVE statement and is not 
in a common block is in a defined state at the time a RETURN or END 
statement is executed in a subprogram, that entity is defined with 
the same value at the next reference of that subprogram. An entity 
in a common block never becomes undefined as a result of the 
execution of a RETURN or END statement ina program unit that does 
not reference that common block. The entities in a named common 
ar may become undefined or redefined by some other program 
unit. 
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STATEMENT FUNCTION STATEMENT 


A statement function definition specifies operations to be 6 
performed whenever that statement function name appears as a 
function reference in another statement in the same program unit. 





Syntax 





name ( (€ argl C, arg2 ] 


name 
is the statement function name (see "Names" on page 7). 

arg 
is a statement function dummy argument. It must be a distinct 
variable, that is, it may appear only once within the list of 
arguments. Parentheses must be specified even if no dummy 
argument 1s specified. 

m 


is any arithmetic, logical, or character expression. Any 
statement function appearing in this expression must have 
been defined previously. In a function or subroutine 
subprogram, this expression can contain dummy arguments that 
appear in the FUNCTION, SUBROUTINE, or ENTRY statements of 
the same program unit. (See "VS FORTRAN Expressions” on page 
25 for evaluation and restrictions of this expression.) 


All statement function definitions to be used in a program must 
follow the specification statements and precede the first 
executable statement of the program. 


The length of a character statement function must be an expression 
containing only integer constants or names of integer constants. 





The expression to the right of the equal sign defines the 
operations to be performed when a reference to this function 
appears ina statement elsewhere in the program unit. The 
expression defining the function must not contain (directly or 
indirectly) a reference to the function it is defining or a 
reference to any of the entry point names (PROGRAM, FUNCTION, 
SUBROUTINE, ENTRY) of the program unit where it is defined. 


If the expression is an arithmetic expression, its type may be 
different from the type of the name of the function. Conversions 
are made as described for the assignment statement. 


The dummy arguments enclosed in parentheses following the 
function name are dummy variables for which the arguments given in 
the function reference are substituted when the function 
reference is encountered. The same dummy arguments may be used in 
more than one statement function definition, and may be used as 
variables of the same type outside the statement function 
definitions, including dummy arguments of subprograms. The Length 
specification of a dummy argument of type character must be an 
arithmetic expression containing only integer constants or names 
of integer constants. 


An actual argument ina statement function reference may be any 
expression of the same type as the corresponding dummy argument. 
It cannot be a character expression involving concatenation of 
one or more operands whose length specification is an asterisk. 


If an actual argument is of type character, the associated dummy 

argument must be of type character and the length of the actual 

argument must be greater than or equal to the length of the dummy 
argument. If the length of the actual argument is greater than the 

Length of an associated dummy argument, the leftmost characters 

of the actual argument are associated with the dummy argument. @& 
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Statement Function 


The name of a statement function must not appear in an EXTERNAL 
statement and must not be used as an actual argument. 


For example, The statement: 
FUNCCA,B)Y = 3. KAtBRRZ2. tXt+VtZ 
defines the statement function FUNC, where FUNC is the function 
name and A and B are the dummy arguments. The expression to the 
right of the equal sign defines the operations to be performed 
when the function reference appears in an arithmetic statement. 
The function reference might appear ina statement as follows: 
C = FUNGCD,E) 
This 15 equivalent to: 
GC = 3. XDtERE? .AXtYtZ 
Notice the correspondence between the dummy arguments A and B in 
the function definition and the actual arguments D and E in the 


function reference. 


Valid Statement Function Definitions and References: 


Definition Reference 

SUMCA,B,C,D) = AtBtCt+D NET = GROS-SUMCTAX,COVER,HOSP, 
STOC) 

FUNC(Z) = AtX*Y*Z ANS = FUNCCRESULT) 


VALIDCA,B) = .NOT. A .OR. B VAL = TEST .OR. VALIDCD,E) 
BIGSUM = SUMCA,B,SUMC(C,D,E,F),G(1I)) 
Invalid Statemant Function Definitions: 
SUBPRGC3,J,KI=3RI+ INI Arguments must be variables. 


SOMEFCACI), BI=ACII/Bt3. Arguments must not be array 
elements. 


SUBPROGRAMCA,B) =AX¥2+BHR¥2 Function name exceeds limit 
of six characters. 


SFUNCCDI=3.14%E Function name must begin with 
an alphabetic character. 


BADCA,BJ=At+BtBADC(C,D) Recursive definition not 
permitted. 


NOGOODCA,AJ=AKA Arguments are not distinct 
variable names. 


Invalid Statement Function References: 


(The functions are defined as above.) 


WRONG = SUMCTAX,COVER) Number of arguments does not 
agree with above definition. 


MIX = FUNCCT) Type of argument does not agree 
with above definition. 
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STATEMENT NUMBERS 





Statement numbers identify statements in a VS FORTRAN program. @ 
Any statement can have a number. A statement can be written in 

either fixed form or free form. See "Source Language Statements" 

on page 4. 


Fixed Form Statement Numbers 


Fixed form statement numbers have the following attributes: 


° They contain 1 to 5 decimal digits (not zero) and are ona 
noncontinued line. 

° Blanks and leading zeros are ignored. 

° They are in columns 1 through 5. 


oe TON EA eNe 8 ee 


Free-Form Statement Numbers 


Free-form statement numbers have the following attributes: 


« They must be the first nonblank characters (digits) on an 
initial line. 

° Blanks and leading zeros are ignored. 

* No blanks are needed between the statement number and the 


first nonblank character following. 


L—_______________-. END OF IBM EXTENSION ————————————__— 





See "ASSIGN Statement" on page 46 for information on assignment of © 
statement numbers. 
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STOP 


The STOP statement terminates the execution of the object program 
and may display a message. 


Syntax 
STOP [En] 





STOP [C'message'] 


n 
a string of 1 through 5 decimal digits. 


"message' 
a character constant enclosed in apostrophes and containing 
alphameric and/or special characters. Within the literal, an 
apostrophe is indicated by two successive apostrophes. 


If either nor 'message' is specified, STOP displays the requested 


information. For further information, see VS FORTRAN Application 
Programming: Guide. 
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The SUBROUTINE statement identifies a subroutine subprogram. 


Syntax 





SUBROUTINE name [€ (¢€ [Cargl] [,arg2] 





is the subroutine name (see "Names"™ on page 7). 


is a distinct dummy argument (that is, it may appear only 
once within the statement). There need not be any arguments, 
in which case the parentheses may be omitted. Each argument 
used must be a variable or array name, the dummy name of 
another subroutine or function subprogram, or an asterisk, 
where the character * denotes a return point specified by a 
statement number in the calling program. 


Because the subroutine is a separate program unit, there is no 
conflict if the variable names and statement numbers within it are 
the same as those in other program units. 


The SUBROUTINE statement must be the first statement in the 
subprogram. The subroutine subprogram may contain any FORTRAN 
statement except a FUNCTION statement, another SUBROUTINE 
statement, a BLOCK DATA statement, or a PROGRAM statement. If an 
IMPLICIT statement is used in a subroutine subprogram, it must 
follow the SUBROUTINE statement and may only be preceded by 
another IMPLICIT statement, a PARAMETER, FORMAT, or ENTRY 
statement. 


The subroutine name must not appear in any other statement in the 
subroutine subprogram. It must not be the same as any name in the 
program unit or as the PROGRAM name, a subroutine name, ora 
common block name in any other program unit of the executable 
program. The subroutine subprogram may use one or more of its 
arguments to return values to the calling program. An argument so 
used will appear on the left side of an arithmetic, logical, or 
character assignment statement, in the list of a READ statement 
within the subprogram, or as an argument ina CALL statement or 
function reference that is assigned a value by the subroutine or 
function referred to. 


The dummy arguments Cargl, arg2, arg3,...» argn) may be 
considered dummy names that are replaced at the time of execution 
by the actual arguments supplied in the CALL statement. 


If a subroutine dummy argument is used as an adjustable array 
name, the array name and all the variables in the array 
declarators Cexcept those in common) must be in the dummy argument 
list. See "Size and Type Declaration of an Array" on page 21. 


The subroutine subprogram can be a set of commonly used 
computations, but it need not return any results to the calling 
program. For information about using RETURN and END statements in 
a subroutine subprogram, see "END Statement™ on page 78 and 
"RETURN Statement" on page 167. 


Actual Arguments in a Subroutine Subprogram 


The actual arguments in a subroutine reference must agree in 
order, number, and type with the corresponding dummy arguments in 
the dummy argument list of the referenced subroutine. The use of a 
subroutine name or an alternate return specifier as an actual 
argument is an exception to the rule requiring agreement of type. 


If an actual argument is of type character, the associated dummy 
argument must be of type character and the length of the actual 
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argument must be greater than or equal to the length of the dummy 
argument. If the length of the actual argument is greater than the 
length of an associated dummy argument, the leftmost characters 
of the actual argument are associated with the dummy argument. 





An actual argument in a subroutine reference must be one of the 
following: 


® An expression, except for a character expression involving 
concatenation of an operand whose length specification 15 an 
asterisk in parentheses (unless the operand is the name of a 
constant) 


® An array name 

° An intrinsic function name 

e An external procedure name 

e A dummy procedure name 

° An alternate return specifier (statement number preceded by 


an asterisk) 


An actual argument in a subroutine reference may be a dummy 
argument name that appears in a dummy argument list within the 
subprogram containing the reference. An asterisk dummy argument 
cannot be used as an actual argument ina subprogram reference. 


Dummy Arguments in a Subroutine Subprogram 


The dummy arguments of a subprogram appear after the subroutine 

name and are enclosed in parentheses. They are replaced at the 

time of execution of the CALL statement by the actual arguments 
r supplied in the CALL statement in the calling program. 


Dummy arguments must follow certain rules: 


® None of the dummy argument names may appear in an EQUIVALENCE, 
COMMON, DATA, PARAMETER, SAVE, INTRINSIC, or NAMELIST 
statement except as common block names. 


e A dummy argument name must not be the same as the entry point 
name appearing in a PROGRAM, FUNCTION, SUBROUTINE, ENTRY, or 
statement function definition in the same program unit. 


6 The dummy arguments must correspond in number, order, and 
type to the actual arguments. 


® If a dummy arguinent is assigned a value in the subprogram, the 
corresponding actual argument must be a variable, an array 
element, a substring, or an array. A constant, name of 
constant, subprogram name, or expression should not be 
written as an actual argument unless the programmer is 
certain that the corresponding dummy argument is not assigned 
a value in the subprogram. 


@ A referenced subprogram cannot assign new values to dummy 
arguments that are associated with other dummy arguments 
within the subprogram or with variables in COMMON. 


® The subprogram reserves no storage for the dummy argument, 
using the corresponding actual argument in the calling 
program for its calculations. Thus the value of the actual 
argument changes as soon as the dummy argument changes. 
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TRACE OFF and TRACE ON 
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TRACE OFF STATEMENT _ 


The TRACE OFF statement stops the display of program flow by 
statement number. 





Syntax 
TRACE OFF 





TRACE OFF may appear anywhere within a debug packet. After a 
TRACE ON statement, tracing continues until a TRACE OFF 
statement is encountered. 


TRACE ON STATEMENT 


The TRACE ON statement initiates the display of program flow by 
statement number. 


Syntax 
TRACE ON 





TRACE QN is executed only when the TRACE option appears ina 
DEBUG packet. (See "DEBUG Statement"™ on page 68.) Tracing 
continues until a TRACE OFF statement is encountered. TRACE ON 
stays in effect through any level of subprogram CALL or RETURN 
statement. However, if a TRACE ON statement is in effect and 


control is given to a program in which the TRACE option is not 
specified, the statement numbers in that program are not © 
traced. 





Each time a statement with an external statement number is 
executed, a record of the statement number is made on the debug 
output file. 

For a given debug packet, the TRACE ON statement takes effect 


immediately before the execution of the statement specified in 
the AT statement. 


END OF IBM EXTENSION ————— 


UNCONDITIONAL GO TO 


See "GO TO Statements” on page 118. 
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WAIT 


cre LTE A tk ee eerie teers eet 


The WAIT statement completes the data transmission begun by the 
corresponding asynchronous READ or WRITE statement. 


Syntax 
WAIT € CUNIT=Jun, plist ) Clist] 


UNIT=un 
un is the reference to an I/0 unit. un is an unsigned 
integer expression of length 4. It is required and can, 
optionally, be preceded by UNIT=. 


plist 
is a parameter list that contains Cin any order) one or 
more of the following forms: 


ID=id 
where id is an integer constant or integer 
expression of length 4. This parameter is required. 


If the WAIT is completing an asynchronous READ, the 
expression id is subject to the following rules: 


® No array element in the receiving area of the 
read may appear in the expression. This also 
includes indirect references to such elements; 
that is, reference to or redefinition of any 
variable or array element associated by COMMON or 
EQUIVALENCE statement, or argument association 
with an array element in the receiving area. 


© If a function reference appears in the subscript 
expression of el or e2, the function may not be 
referred to in the expression id. Also,» no 
functions or subroutines may be referred to by 
the expression that directly or indirectly refers 
to the subscript function, or to which the 
subscript function directly or indirectly refers. 


COND=il 
where il is an integer variable name of length 4. This 
parameter is optional. 


If COND=il is specified, the variable il is assigned 
a value of 1 if the input or output operation was 
completed successfully; 2 if an error condition was 
encountered; and 3 if an end-of-file condition was 
encountered while reading. In case of an error or 
end-of-file condition, the data in the receiving area 
may be meaningless. 


NUM=i2 
where i2 is an integer variable name of length 4. This 
Parameter is optional. 


If NUM=i2 is specified, the variable i2 is assigned a 
value representing the number of bytes of data 
transmitted to the elements specified by the list. If 
the list requires more data from the record than the 
record contains, this parameter must be specified. If 
the WAIT is completing an asynchronous WRITE, i2 
remains unaltered. 


list 
1s optional. It is an asynchronous I/0 list as specified 
for the asynchronous READ and WRITE statements. 
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If a list 1s included, it must specify the same receiving or 
transmitting area as the corresponding asynchronous READ 

or WRITE statement. It must not be specified if the 

asynchronous READ did not specify a list. 





WAIT redefines a receiving area and makes it available for 
reference, or makes a transmitting area available for 
redefinition. 


The corresponding asynchronous READ or WRITE, which need not 
appear tin the same program unit as the WAIT, is the statement 
that: 


e Was not completed by the execution of another WAIT 
& Refers to the same file as the WAIT 


* Contains the same value for id in the ID=id form as did the 
asynchronous READ or WRITE when it was executed 


The correspondence between WAIT and an asynchronous READ or 
WRITE holds for a particular execution of the statements. 
Different executions may establish different correspondences. 
When the WAIT is completing an asynchronous READ, the 
subscripts in the list may not refer to array elements in the 
receiving area. If a function reference 1s used in a subscript, 
the function reference may not perform I/0 on any file. 
Valid WAIT Statements: 

WAIT €8,ID=1) ARRAYC101)...ARRAYC500) 

WAIT €9,ID=1,COND=ITEST) 

WAIT €8,ID=1,NUM=N) ® 

WAIT (€9,ID=2) 


bm END OF IBM EXTENSION —————— 
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WRITE STATEMENTS 





The WRITE statements transfer data from storage to an external 
device or from one internal file to another internal file. 


FORMS OF THE WRITE STATEMENT: 

SS Ss re eRe 
1. WRITE Statement—Asynchronous 

Lb —————nnennnnnnenee END OF IBM EXTENSION ———— 
WRITE Statement—Formatted with Direct Access 

WRITE Statement—Formatted with Sequential Access 

WRITE Statement—wUnformatted with Direct Access 

WRITE Statement—wUnformatted with Sequential Access 

WRITE Statement with Internal Files 


a DP WO fF WwW BD 


WRITE Statement with List-Directed I/0 


-—————______——— IBM _ EXTENSION ————————______ 
8. WRITE Statement with NAMELIST 


——___- END OF IBM EXTENSION —————————________—" 


VS FORTRAN Statements 181 





WRITE CAsynchronous ) 


—————— eee ITEM EXTENSION 


WRITE Statemant-—Asynchronous @ 


The asynchronous WRITE statement transmits data from an array 
in main storage to an external file. 


Syntax 





WRITE € CUNIT=Jun, ID=id } list 


UNIT=un 


un 1s the reference to an I/0 unit. It is required and can, 
optionally, be preceded by UNIT=. un is an integer 
expression of length 4 whose value must be zero or 
positive. 


jd is an integer constant or integer expression of length 
4. It is the identifier for the WRITE statement. 





1S an asynchronous I/0 list that may have any of four 


is the name of an array. 





el and e2 
are the names of elements in the same array. The 
ellipsis ¢...) 15 an integral part of the syntax of 


the list and must appear in the positions indicated. 


The unit specified by un must be connected to a file that 
resides ona sequential or direct access device. The array or 
array elements specified by e Cor el and e2) constitute the 
transmitting area for the data to be written. The extent of the 
transmitting area 1s determined as follows: 


° If e is specified, the entire array is the transmitting 
area. 
e If eal...a2 is specified, the transmitting area begins at 


array element el and includes every element up to and 
including e2. The subscript value of el must not exceed that 
of e2. 


° If el... is specified, the transmitting area begins at 
element el and includes every element up to and including 
the last element of the array. 





e If ...e@2 is specified, the transmitting area begins at the 
first element of the array and includes every element up to 
and including e2. 


a If a function reference is used in a subscript of the list, 
the function reference may not perform I/0 on any file. 


Execution of an asynchronous WRITE statement initiates writing 

of the next record on the specified file. The size of the record 

is equal to the size of the transmitting area. All the data in © 
the area is written. 
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Given an array with elements of length len, the number of bytes 
transmitted will be len times the number of elements in the 
array. Elements are transmitted sequentially from the smallest 
subscript element to the highest. If the array is 
multi-dimensional, the leftmost subscript quantity increases 
most rapidly, and the rightmost least rapidly. 


Because the asynchronous WRITE statement can only refer to 
files with sequential access, REC may not be specified even 
though the file may be resident on a direct-access device. 


There is no FORMAT statement associated with the output data and 
no conversion takes place. 


Any number of program statements may be executed between an 
asynchronous WRITE and its corresponding WAIT, subject to the 
following rules: 


® No such statement may tn any way assign a new value to any 
array element in the transmitting field. This and the 
following rules apply also to indirect references to such 
array elements; that is, assigning a new value to a variable 
or array elements associated by COMMON or EQUIVALENCE 
statements, or argument association with an array element 
in the transmitting area. 


° No executable statement may appear that redefines or 
undefines a variable or array element appearing in the 
subscript of el or e2. 


e If a function reference appears in the subscript expression 
of el or e2, the function may not be referred to by any 
statements executed between the asynchronous WRITE and the 
corresponding WAIT. Also, no subroutines or function may be 
referred to that directly or indirectly refer to the 
subscript function, or to which the subscript function 
directly or indirectly refers. 


e No function or subroutine may be executed that performs 
input or output on the file being manipulated. 


Valid WRITE Statement: 
WRITE CID=-10, UNIT=2*®IN+2) . . . EXPECT(C9) 


—_________________- FND OF IBM EXTENSION ————————__ 
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WRITE Statement——-Formatted with Direct Access 


184 


This statement transfers data from internal storage onto an 
external device. The user spacifies in a FORMAT statement (or ina 
reference to a FORMAT statement) the conversions to be performed 
during the transfer. The data must be sent to an external file 
that 1s connected with direct access to a unit (see "OPEN 
Statement” on page 137). 


Syntax 





WRITE € CUNIT=Jun, CFMT=J]fmt, REC=rec [,ERR=stn] 


C, IOSTAT=ios J] ) Clist] 


UNIT=un 
un 1s the reference to an I/0 unit. It is required and can, 
optionally, be preceded by UNIT=. un is an integer 
expression of length 4 whose value must be zero or positive. 


If UNIT= is specified, all the parameters can appear in any 
order. 


If UNIT= is not specified, un must appear first in the 
statement. The other parameters may appear in any order. 


FMT=fimnt 
fmt is a required format identifier. It can optionally be 
preceded by FMT-. 


If FMT= is not specified, the format identifier must appear 
second. 


If both UNIT= and FMT= are specified, all parameters, except 
list, can appear In any order. 


The format identifier (fmt) can be: 


A statement number 

An integer variable 
character constant 
character array element 
character array name 
character expression 


r>PrrYr 


——_—_———_—————————————__ IBM EXTENSION ——————______ 


An array name 


a rreencerncneeemeeees END OF IBM EXTENSION ——— 


The statement number must be the statement number of a FORMAT 
statement in the same program unit as the WRITE statement. 


The integer variable must have been initialized by an ASSIGN 
statement with the number of a FORMAT statement. The FORMAT 
statement must be in the same program unit as the WRITE 
statement. 





The character constant must constitute a valid format. The 
constant must be delimited by apostrophes, must begin with a 
left parenthesis and end with a right parenthesis. Only the 
format codes described in the FORMAT statement can be used 
between the parentheses. An apostrophe ina constant 
enclosed in apostrophes is be represented by two consecutive 
apostrophes. 


The character array element must contain character data 
whose leftmost character positions constitute a valid 
format. A valid format begins with a left parenthesis and 
ends with a right parenthesis. Only the format codes 


VS FORTRAN Language Reference 











WRITE (Formatted, Direct Access) 


described in the FORMAT statement can be used batween the 
parentheses. Blank characters may precede the left 
parenthesis and character data may follow the right 
parenthesis. The length of the format specification must not 
exceed the length of the character array element. 


The character array name must contain character data whose 
leftmost characters constitute a valid format specification. 
The length of the format specification may exceed the length 
of the first element of the array; it is considered the 
concatenation of all the elements of the array in the order 
given by array element ordering. 


rere eee imrenen Ey ST CET Rs Cae: STU mee 


The array name may be of type integer, real, double 
precision, logical, or complex. 


The data must be a valid format identifier as described 
under character array name above. 


Lea imeninirimenmioiamminomimns: END OF IBM EXTENSION ————— 


The character expression may contain concatenations of 
character constants, character array elements, and character 
array names. Its value must bea valid format specification. 
The operands of the expression must have length 
specifications that contain only tnteger constants or names 
of integer constants. 


REC=rec 
rec is an integer expression. It represents the relative 
position of a record within the file associated with un. Its 
value after conversion to integer, if necessary, must be 
greater than zero. The internal record number of the first 
record is 1. The INQUIRE statement can be used to determine 
the record number. 


If list is omitted, a blank record is transmitted to the 
output device unless the FORMAT statement referred to 
contains, as its first specification, a character constant 
or slashes. In this case, the record or records indicated by 
these specifications are transmitted to the output device. 


ERR=stn 
stn is the number of a statement in the same program unit as 
the WRITE statement. Transfer is made to stn if an error is 
detected. 


IOSTAT=i0S 
10s 1S an integer variable or an integer array element of 
length 4. Its value is positive if an error is detected; 
negative tf an end of file is encountered; and zero if no 
error condition is detected. VSAM return and reason codes 
are placed in ios. 





15 an I/O list and can contain variable names, array element 
names, character substring names, array names, implied DO 
lists, and expressions. See "Implied DO in an Input/Output 
Statement™ on page 75. 


A function must not be referenced within an expression if sucha 
reference causes an input or output statement to be executed. 
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Valid WRITE Statements: 





WRITE Cun,fmt,REC=rec) list 
WRITE Cun, FMT=fmt,REC=rec) list 











WRITE CFMT=fmt,REC=rec,UNIT=un) list 
WRITE CREC=1, UNIT=11, FMT="C1I9)") 
WRITE €0,°CA&8)", REC=3) 





Invalid WRITE Statements: 


WRITE Cfmt,un) list un must appear before fmt. 


_— ee ee 


EC= 15 required for direct access. 


WRITE CFMT=fmt, un) list un must appear first because UNIT= 
15 not specified. REC= is required 
for direct access. 





WRITE (fmt, UNIT=un) list FMT must be used because UNIT= 
15 specified. REC= is required 
for direct access. 





WRITE FMT=fmt, list un, fmt, and REC= must be 
specified within parentheses. 


If this WRITE statement is encountered, the unit specified must 
exist and the file must be connected for sequential access. If the 
unit 15 not connected to a file, it 15 assumed to have been 
preconnected through job control language and an implicit OPEN is 
performed to a default file name. If the file 1s not preconnected, 

an error 15 detected. @ 





DATA TRANSMISSION: A WRITE statement with FORMAT starts data 
transmission at the beginning of a record specified by REC=rec. 
The format codes in the format specification fmt are taken one by 
one and associated with every item of the list in the order they 
are specified. The data is taken from the item of the list, 
converted according to the corresponding format code, and the 
number of character data specified by the format code is 
transmitted onto the record of the external file. Data 
transmission stops when data has been taken from every ttem of the 
list or when the end of the record specified by rec 15 reached. 


If the list is not specified and the format specification starts 
with an I, E» F, Ds G, or Ls or 18 empty Cthat 18, FORMATC 3), the 
record is filled with blank characters and the relative record 
number rec 1S Increased by one. 


IBM EXTENSION ——____, 


This is also true when the format specification starts with a G, 
Q, or Z format code. 


Ln n= END OF IBM EXTENSION ——————— 


DATA AND I/O LIST: The length of every FORTRAN record is specified 
in the RECL parameter of the OPEN statement. If the length of the 
record rec 1s greater than the total amount of data specified by 
the format codes used during transmission of data, an error 15 
detected, but as much data as can fit into the record is 
transmitted. If the format specification indicates (for example, 
slash format code) that data be transmitted to the next record, 
then the relative record number rec 1s tncreased by one and data 
transmission continues. 

After successful execution of the WRITE statement, the value of ©} 
the NEXTREC variable specified itn the INQUIRE statement is set to 
the relative record number of the last record written, 
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incremented by one. If an error is detected, the NEXTREC variable 
contains the relative record number of the record being written. 


Transfer is made to the statement specified by ERR if an error is 
detected. No indication is given of which record or records could 
not be written, only that an error occurred during transmission of 
data. If IOSTAT=ios is specified, a positive integer value is 
assigned to stn when an error is detected. Then execution 
continues with the statement specified with ERR, if present, or 
with the next statement, if ERR is not specified. If ERR and 
IOSTAT are both omitted, program execution is terminated when an 
error is detected. 
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WRITE Statement-—Formatted with Sequential Access 


This statement transfers data from internal storage onto an 
external I/0 device. The user specifies in a FORMAT statement (or 
in a reference to a FORMAT statement) the conversions to be 
performed during the transfer. The data must be sent to an 
external file that is connected with sequential access to a unit 
(see "OPEN Statement” on page 137). 


Syntax 





WRITE € CUNIT=Jun, CFMT=l]fmt [, IOSTAT=ios] ) 
[list] 


PRINT fmt Cy» List} 


UNIT=un 
un 1s the reference to an I/0 unit. It is required and can, 
optionally, be preceded by UNIT=. un is either: 


° An integer expression of length 4 whose value must be 
zero or positive 

8 An asterisk (%) representing an installation-dependent 
unit 


If UNIT= is specified, FMT= must be used and all the 
parameters can appear in any order. 


If UNIT= is not specified, un must appear first in the 
statement. The other parameters may appear in any order. 


In the form of a WRITE statement where un is an asterisk, un 
is installation dependent. 


FMT=fimt 
fmt is a required format identifier. It can, optionally, be 
preceded by FMT=. 


If FMT is not specified, the format identifier must appear 
second. 


If both UNIT= and FMT= are specified, all parameters, except 
list, can appear in any order. 


The format identifier (fmt) can be: 


A statement number 

An integer variable 

A character constant 

A character array element 
A character array name 

A character expression 


———————— eee TEM EXTENSA ee 
An array name 


ees END OF IDM EXTENSL ON ————— 


See "WRITE Statement—Formatted with Direct Access" on page 
184 for explanations of these format identifiers. 


ERR=stn 
stn 1s the number of a statement in the same program unit as 
the WRITE statement. Transfer is made to stn if an error is 
detected. 
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IOSTAT=10S 
ios is an integer variable or an integer array element of 
length 4. Its value is positive if an error is detected; 
negative if an end of file is encountered; and zero if no 
error condition is detected. VSAM return and reason codes 
are placed in ios. 





is an I/O list. It can contain variable names, array 
elements, character substring names, array names, implied DO 
lists, and expressions. In the PRINT statement, if the list 
is not present, the comma must be omitted. See "Implied DO in 
an Input/Output Statement” on page 75. 


A function must not be referenced within an expression if such a 
reference causes an input or output statement to be executed. 


Valid WRITE and PRINT Statements: 
WRITE Cun,fmt) list 
WRITE Cun, FMT=fmt) List 
WRITE (%,fmt) list 
WRITE CUNIT=un, FMT=fmt) List FMT=fmt can appear first. 
WRITECIOSTAT=I0S, ERR=99999, FMT =*%, UNIT=2*IN+3) 
WRITECIN+8,NAMEOT, IOSTAT=IACTC 1), ERR=99999) 
PRINT *, list 
PRINT fmt, list 


PRINT fmt 





Invalid WRITE and PRINT Statements: 











WRITE (Cfmt,un) un must appear first before fmt. 
WRITE CFMT=fmt,un) list un must appear first because 
UNIT= is not specified. 
WRITE Cfmt,UNIT=un) list FMT must be used because 
UNIT= is specified. 
PRINT FMT=fmt, list FMT must not be used with 
PRINT. 


If the unit specified by un is connected, it must be connected for 
sequential access. If it is not connected to a file, it is assumed 
to have been preconnected through job control language and an 
implicit OPEN is performed to a default file name. If the file is 
not preconnected, an error is detected. 


DATA TRANSHISSION: A WRITE statement with FORMAT starts data 
transmission at the beginning of a record. The format codes in the 
format specification fmt are taken one by one and associated with 
every item of the list in the order they are specified. The data 
is taken from the item of the list, converted according to the 
corresponding format code and the number of character data 
specified by the format code is transmitted onto the record of the 
external file. Data transmission stops when data has been taken 
from every item of the list. 


If the list is not specified and the format specification starts 


with an I, E, F, D, G, or LL, or is empty (that is, FORMATC 3), a 
blank record is written out. 
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rns TR EXTENSA] 


This is also true when the format specification starts with a Q 
or Z format code. 


The WRITE statement can be used to write over an end of file and 
extend the external file. An ENDFILE, BACKSPACE, CLOSE, or 
REWIND statement will then reinstate the end of file. 


L——_______________- FND OF IBM EXTENSION ———————————_—__ 


After execution of a sequential WRITE or PRINT, no record exists 
in the file following the last record transferred by that 
statement. 


DATA AND I/O LIST: The amount of character data specified by all 
the format codes used during the transmission of the data defines 
the length of the FORTRAN record (also called a logical record). A 
single WRITE statement may create several FORTRAN records. This 
occurs when a slash format code is encountered in the format 
specification or when the I/0 list exceeds the format 
specification which causes the FORMAT statement to be used in full 
or part again. (See "FORMAT Statement” on page 91.) 


VS FORTRAN Application Programming: Guide describes how to 


associate FORTRAN records (that is, logical records) and physical 
records on an external I/0 device. 


Transfer is made to the statement specified by ERR if an error is 
detected. No indication is given of which record or records could 
not be written, only that an error occurred during transmission of 
data. If IOSTAT=ios is specified, a positive integer value is 
assigned to stn when an error is detected. Then execution 
continues with the statement specified with ERR, if present, or 
With the next statement if ERR is not specified. If ERR and IOSTAT 
are both omitted, execution is terminated when an error is 
detected. 
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© WRITE Statement—Unformatted with Direct Access 





The statement transfers data without conversion from internal 
storage onto an external I/0 device. The data must be sent to an 
external file that is connected with direct access to a unit (see 
"OPEN Statement” on page 137). 


Syntax 





WRITE € CUNIT=Jun, REC=rec [C, ERR=stn] [, IOSTAT=ios] )} 


Clist] 


UNIT=un 
un is the reference to an I/0 unit. It is required and can, 
optionally, be preceded by UNIT=. un is an integer 
expression of length 4 whose value must be zero or positive. 


If UNIT= is specified, all the parameters may appear in any 
order. 


If UNIT= is not specified, un must appear first in the 
statement. The other parameters may appear in any order. 


REC=rec 
rec 1s a relative record number. It is an integer expression 
that must be greater than zero. It represents the relative 
position of a record within the external file associated 
With un. The relative record number of the first record is 1. 


ERR=stn 
stn is the number of a statement in the same program unit as 
the WRITE statement. Transfer is made to stn if an error is 
detected. 


IOSTAT=105 
| 10s 1s an integer variable or an integer array element of 
length 4. Its value is positive if an error is detected; 
negative if an end of file is encountered; and zero if no 
error condition is detected. VSAM return and reason codes 
are placed in ios. 











is an I/0 list and can contain variable names, array 
elements, character substring names, array names, implied DO 
lists, and expressions. See "Implied DO in an Input/Output 
Statement” on page 75. 


A function must not be referenced within an expression if such a 
reference causes an input or output statement to be executed. 


Valid WRITE Statements: 
WRITE Cun,REC=rec) list 
WRITE CREC=rec,UNIT=un) list 
WRITE CIOSTAT=IOS, ERR=99999, REC=IN-3, UNIT=IN+6) 
WRITE CIOSTAT=IACTC1), REC=2%IN-7, UNIT=2XIN+1) EXPECT(3) 
WRITE CREC=1, UNIT=11) EXPECT(1) 
Invalid WRITE Statements: 
WRITE (REC=rec,un) list UNIT must be used. 


© WRITE Cun) list REC=rec must be specified. 


If the unit specified by un is encountered, it must exist and the 
file must be connected for direct access. If the unit is not 
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connected to a file, it is assumed to have been preconnected 
through job control language and an implicit OPEN is performed to 
a default file name. If the file is not preconnected, an error is 
detected. 





DATA TRANSMISSION: A WRITE statement without conversion starts 
data transmission at the record specified by rec. The data is 
taken from the items of the list in the order in which they are 
specified and transmitted onto the record rec of the external 
file. Data transmission stops when data has been transferred from 
every item of the list. 


DATA AND I/O LIST: The length of every FORTRAN record is specified 
in the RECL parameter of the OPEN statement. If the length of the 
record rec is greater than the total amount of data transmitted 
from the items of the list, the remainder of the record is filled 
with zeros. If the length of the record rec is smaller than the 
total amount of data transmitted from the items of the list, as 
much data as can fit in the record is written, the internal record 
number is increased by one. The INQUIRE statement can be used to 
determine the record number. 


Transfer is made to the statement specified by ERR if an error is 
detected. No indication is given of which record or records could 
not be written, only that an error occurred during transmission of 
data. If IOSTAT=ios is specified, a positive integer value is 
assigned to ios when an error is detected. Then execution 
continues with the statement specified with ERR, if present, or 
with the next statement if ERR is not specified. If ERR and IOSTAT 
are both omitted, execution is terminated when an error is 
detected. 
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WRITE Statement——Unformatted with Sequential Access 


@ This statement transfers data without conversion from internal 
storage onto an external I/0 device. The data must be sent to an 
external file that is connected with sequential access to a unit 
(see "OPEN Statement” on page 137). 





syntax 
WRITE € CUNIT=Jun [, ERR=stn] (€, IOSTAT=ios] ) [list] 





UNIT=un 
un is the reference to an I/0 unit. It is required and can, 
optionally, be preceded by UNIT=. un is an integer 
expression of length 4 whose value must be zero or positive. 


If UNIT= is specified, all the parameters may appear in any 
order. 


If UNIT= is not specified, un must appear first in the 
statement. The other parameters may appear in any order. 


ERR=stn 
stn is the number of a statement in the same program unit as 


the WRITE statement. Transfer is made to stn if an error is 
detected. 


IOSTAT=10S 
| i105 15 an integer variable or an integer array element of 
length ¢. Its value is positive if an error is detected; 
negative if an end of file is encountered; and zero if no 
error condition is detected. VSAM return and reason codes 
are placed in ios. 





is an I/O list and can contain variable names, array 
elements, character substring names, array names, implied DO 
lists, and expressions. See "Implied DO in an Input/Output 
Statement” on page 75. 


A function must not be referenced within an expression if sucha 
reference causes an input or output statement to be executed. 


Valid WRITE Statements: 
WRITE (un) list 
WRITE CUNIT=un) list 
WRITEC5) EXPECT(4) 
Invalid WRITE Statement: 


WRITE un,list Cun must be in parentheses.) 





DATA TRANSMISSION: A WRITE statement without conversion starts 
data transmission at the beginning of a record. The data is taken 
from the items of the list in the order in which they are 
specified and transmitted onto the record of the external file. 


Data transmission stops when data has been transferred from every 
item of the list. 


After execution of a sequential WRITE statement, no record exists 
in the file following the last record transferred by that 
statement. 
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eee rr 


The WRITE statement writes over an end of file and extends the & 
external file. An END FILE, BACKSPACE, CLOSE, or REWIND 
statement will then reinstate the end of file. 


ne END OF IBM EXTENSION —— 





DATA AND I70 LIST: The amount of character data specified by the 
items of the list defines the length of the FORTRAN record (also 
called a logical record). A single WRITE statement creates only 


one FORTRAN record. 


VS FORTRAN Application Programming: Guide describes how to 
associate FORTRAN records (that is, logical records) and physical 


records on an external I/0 device. 


Transfer is made to the statement specified by ERR if an error is 
detected. No indication is given of which record or records could 
not be written, only that an error occurred during transmission of 
data. If IOSTAT=ios is specified, a positive integer value is 
assigned to ios when an error is detected. Then execution 
continues with the statement specified with ERR, if present, or 
with the next statement if ERR is not specified. If ERR and IOSTAT 
are both omitted, execution 1s terminated when an error 15 


detected. 











194 VS FORTRAN Language Reference 














WRITE (Internal) 


WRITE Statement with Internal Files 


This statement transfers data from one or more areas in internal 
storage to another area in internal storage. The user specifies, 
in a FORMAT statement (or in a reference to a FORMAT statement), 
the conversions to be performed during the transfer. The 
receiving area in internal storage is called an internal file. 


Syntax 
WRITE € CUNIT=Jun, CFMT=Jfmt [€, ERR=stn] [£, IOSTAT=ios]j ) 





Clist] 


UNIT=un 
un is the reference to an area of storage called an internal 
file. It can, optionally, be preceded by UNIT=. It can be the 
name of a character variable, character array, character 


array element, or character substring. 


If UNIT= is specified, FMT= must be used. If UNIT= is not 
specified, the unit reference must appear first. 


FMT=fmt 
is the format specification. It may optionally be preceded 
by FMT=. 


If FMT= is not specified, the format specification must 
appear second. 


If both UNIT= and FMT= are specified, all parameters, except 
list, may appear in any order. 





The format specification can be: 


A statement number 

An integer variable 

A character constant 

A character array element 
A character expression 


nen name onan imaarseicnemasammineaell \ -) yi Tn Gf) ly bo 9 (I ca meena ee ae ineenimmmnaaennany 
An array name 


$$ EN). OF IBM EXTENSION ————————_______—_—_ 


See "WRITE Statement—Formatted with Direct Access" on page 
184 for explanations of these format specifications. 


ERR=stn 
stn is the number of a statement in the same program unit as 


the WRITE statement. Transfer is made to stn if an error is 
detected. 


IOSTAT=i105 
10S 15 an integer variable or an integer array element of 
length 4. Its value is positive if an error is detected; 
negative if an end of file is encountered; and zero if no 
error condition is detected. VSAM return and reason codes 
are placed in ios. 


list 
15 an I70 list and can contain variable names, array 
elements, character substring names, array names, implied DO 
lists, and expressions. See "Implied DO in an Input/Output 
Statement" on page 75. 


A function must not be referenced within an expression if sucha 
reference causes an input or output statement to be executed. 
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Neither the format specification (fmt) nor an item in the list 
(list) can be: © 
° Contained in the area represented by un 


. Associated with any part of un through EQUIVALENCE, COMMON, 
or argument passing 


Valid WRITE Statements: 
WRITE Cun,fmt)d list 
WRITE Cun,FMT=fmt) list 
WRITE CFMT=fmt,UNIT=un) list 
WRITE CIOSTAT=10S, ERR=99999, FMT="CA9)", UNIT=CHAR(1:5)) "1 2 3° 
WRITE CCHARC1:5), "CA9)D", IOSTAT=IACTC(1)) "4 5 6° 
Invalid WRITE Statements: 





WRITE Cfmt,un) list un must appear first before fmt. 

WRITE CFMT=fmt,un) list un must appear first because 
UNIT= 18s not specified. 

WRITE (Cfmt,UNIT=un) list FMT must be used because UNIT= 


1S specified. 


DATA TRANSMISSION: A WRITE statement starts data transmission at 
the beginning of the area specified by un. The format codes in the 
format specification fmt are taken one by one and associated with 
every item of the list in the order they are specified. Data is 
taken from the item of the list, converted according to the format 
code, and the number of character data specified by the format 
code is moved into the storage area un. Data transmission stops 
when data has been moved from every item of the list. 





If un 18s a character variable, a character array element, or a 
character substring name, it is treated as one record only in 
relation to the format specification. 


If un is a character array name, each array element is treated as 
one record in relation to the format specification. 


DATA AND I/0 LIST: The length of a record is the length of the 
character variable, character substring name, or character array 
element specified by un when the WRITE statement is executed. 


If the length of the record 1s greater than the amount of data 
specified by the items of the list and the associated format 
specification, the remainder of the record is filled with blank 
characters. 


If the lensth of the record is less than the amount of data 
specified by the items of the list and the associated format 
specification, as much data as can fit in the record is 
transmitted and an error is detected. 


The format specification may indicate (for example, slash format 
code) that data be moved to the next record of storage area un. If 
un specifies a character variable, a character array element, or a 
character substring name, an error is detected. If un specifies a 
character array name, data 15 moved into the next array element 
unless the last array element has been reached. In this latter 
case, an error is detected. 
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Transfer is made to the statement specified by ERR if an error is 
detected. No indication is given of which record or records could 
not be written, only that an error occurred during transmission of 
data. If IOSTAT=ios is specified, a positive integer value is 
assigned to ios when an error is detected. Then execution 
continues with the statement specified with ERR, if present, or 
with the next statement if ERR is not specified. If ERR and IOSTAT 
are both omitted, execution is terminated when an error is 
detected. 
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WRITE Statement with List-Directed I70 





This statement transfers data from internal storage onto an _ 
external I/0 device. The data must be sent to an external file 
that is connected with sequential access to a unit. (See "OPEN 
Statement" on page 137.) The type of the items specified in the 
statement determines the conversion to be performed. 


Syntax 





WRITE € CUNIT=Jun, CFMT=]* £E, ERR=stn] [, IOSTAT=jios] ) 
Clist] 


PRINT ® C, list] 


UNIT=un 
un 1s the reference to an I/0 unit. It is required and can, 
optionally, be preceded by UNIT=. un is either: 


® An integer expression of length 4 whose value must be 
zero or positive 


° An asterisk (*) representing an installation-dependent 
unit 


If UNIT= is specified, all the parameters may appear in any 
order. 


If UNIT= is not specified, un must appear first in the 
statement. The other parameters may appear in any order. 


is installation dependent. 





In the form of a WRITE statement where un is an asterisk, un @ 


FMT =x 
An asterisk (*) specifies that a list-directed WRITE has to 
be executed. It can, optionally, be preceded by FMT= if un is 
specified. 


If FMT= is not specified, the format identifier must appear 
second. 


If both UNIT= and FMT= are specified, all parameters, except 
list, may appear in any order. 


ERR=stn 
stn is the number of a statement in the same program unit as 


the WRITE statement. Transfer is made to stn if an error is 
detected. 


ITOSTAT=1i0s 
i105 15 an integer variable or an integer array element of 
length 4. Its value is positive if an error 1s detected; 
negative if an end of file is encountered; and zero if no 
error condition is detected. VSAM return and reason codes 
are placed in ios. 








is an I7O0 list and can contain variable names, array 
elements, character substring names, array names, implied DO 
lists, and expressions. See "Implied DO in an Input/Output 
Statement" on page 75. 


A function must not be referenced within an expression if sucha 
reference causes an input or output statement to be executed. 
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Valid WRITE Statements: 
WRITE C€Cun,*®) List 
WRITE Cun,FMT=%) list 
WRITE CFMT=*,UNIT=un) List 
WRITE (€5,%) 





WRITE CFMT=%,UNIT=%) FIFTY5,ISEG 


WRITE CIOSTAT=I0S, ERR=99999, FMT=%, UNIT=2XIN+3) 
tUUUsSZEXPECT(L)Z/ ttt 


PRINT *®, list 
Invalid WRITE Statements: 





WRITE (€®,un) list un must appear before *. 

WRITE CFMT=%,un) list un must appear first because 
UNIT= is not specified. 

WRITECX,UNIT=un) list FMT must be used because 
UNIT= is specified. 

PRINT FMT=%, list FMT must not be used. 


If the unit specified by un is encountered, it must be connected 
to a file for sequential access. If the unit is not connected toa 
file, it is assumed to have been preconnected through job control 
language and an implicit OPEN is performed to a default file name. 
If the file is not preconnected, an error is detected. 


DATA TRANSMISSION: A WRITE or PRINT statement with list-directed 
I/70 accessing an external file starts data transmission at the 
beginning of a record. The data is taken from each item in the 
list in the order they are specified and transmitted onto the 
record of the external file. Data transmission stops when data has 
been transferred from every item in the list. 


After execution of a sequential WRITE or PRINT statement, no 
record exists in the file following the last record transferred by 
that statement. 


The WRITE or PRINT statement can write over an end of file and 
extend the external file. An ENDFILE, CLOSE, or REWIND statement 
will reinstate the end of file. 


An external file with sequential access written with 
list-directed I/0 is suitable for printing, because a blank 
character is always inserted at the beginning of each record as a 
carrier control character. 


DATA AND I/0 LIST: The amount of character data specified by the 
items in the list and the necessary data separators define the 
length of the FORTRAN record (also called a logical record). A 
single WRITE or PRINT statement creates only one FORTRAN record. 


VS FORTRAN Application Programming: Guide describes how to 
associate FORTRAN records (that is, logical records) and physical 
records on an external I/0 device. In particular, a logical record 
may span many physical records. A character constant or a complex 
constant can be split over the next physical record if there is 
not enough space on the current physical record to contain it all. 
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Character constants produced: 





° Are not delimited by apostrophes 


6 Are not preceded or followed by value separators 

6 Have each internal apostrophe represented externally by one 
apostrophe 

e Have a blank character inserted by the processor for carrier 


control at the beginning of any record that begins with the 
continuation of a character constant from the preceding 
record 


Transfer is made to the statement specified by ERR if an error 
occurs. No indication is given of which record or records could 
not be written, only that an error occurred during transmission of 
data. If IOSTAT=stn is specified, a positive integer value is 
assigned to stn when an error is detected. Then execution 
continues with the statement specified with ERR, if present, or 
with the next statement if ERR is not specified. If ERR and IOSTAT 
are both omitted, execution is terminated when an error occurs. 
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a ees TO EALENS SI 


WRITE Statement with NAMELIST 


This statement transfers data from internal storage onto an 
external I/0 device. The type of the items specified in the 
NAMELIST statement determines the conversions to be performed. 


Syntax 





WRITE € un, name [, ERR=stn] [, IOSTAT=ios] ) 











un 
un is the reference to an I/0 unit. It is required. un 15s 
an integer expression of length 4% whose value must be zero 
or positive. 

name 
is a NAMELIST name. This name must appear as the second 
parameter in the list and must be the same as the name ina 
NAMELIST statement that precedes the WRITE statement (see 
"NAMELIST Statement™ on page 135). 

ERR=stn 
stn 1s the number of a statement in the same program unit 
as the WRITE statement. Transfer is made to stn if an error 
is detected. 

IOSTAT=ios 


105 15 an integer variable or an integer array element of 
length ¢. Its value is positive if an error is detected; 
negative if an end of file is encountered; and zero if no 
error condition is detected. VSAM return and reason codes 
are placed in ios. 


Valid WRITE Statements: 

WRITE Cun, name) 

WRITE CIN+8, NAMEOUT, IOSTAT=IACTC1), ERR=99999) 
Invalid WRITE Statements: 


WRITE Cname,un) un must appear before name. 





WRITE Cun,name) list list must not be specified. 


If the unit specified by un is encountered, it must exist and 
must be connected to a file for sequential access. If the unit 
1s not connected to a file, it is assumed to have been 
preconnected through job control language and an implicit OPEN 
is performed to a default file name. If the file is not 
preconnected, an error is detected. 


A BACKSPACE or REWIND statement should not be used for a file 
that is written using NAMELIST. If it is, the results are 
unpredictable (see "BACKSPACE Statement™ on page 54). 


DATA TRANSMISSION: A WRITE statement with NAMELIST starts data 
transmission from the beginning of a record. The data is taken 
from each item in the NAMELIST with name in the order in which 
they are specified and transmitted onto the record of the 
external file. Data transmission stops when data has been 
transferred from every item in the NAMELIST name. 


After execution of a WRITE statement with NAMELIST, no record 


exists in the file following the end of the NAMELIST just 
transmitted. 
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DATA AND NAMELIST: The NAMELIST name name must appear on the 
external file. 








The number of characters specified by the items in the NAMELIST 
name and the necessary data separators and identifiers are 
placed on the external file. 


Transfer is made to the statement specified by ERR if an input 
error occurs. No indication 1s given of which record or records 
could not be written, only that an error occurred during 
transmission of data. If ERR is omitted, execution is 
terminated when an error occurs. 


nnn END OF IBM EXTENSION —————_— 
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APPENDIX A. SOURCE LANGUAGE FLAGGER 





The VS FORTRAN compiler can flag FORTRAN statements that do not 
conform to the syntax of the Full or Subset ANS FORTRAN 1978 
Standard. See the ANS manual for subset language flags. 

ITEMS FLAGGED FOR FULL ANS LANGUAGE 
° FREE option. 


The FIPS option cannot be specified with free-form source. 
The FIPS flagging is ignored. 


@ LANGLVL(€66) option. 
The FIPS option cannot be specified for the 1966 ANS FORTRAN 
language. The FIPS flagging is ignored. 


GLOBAL ITEMS FLAGGED 


2 Columns 1 to 5 of a continuation card are not blank. 

% The currency symbol ($) is used in a name. 

° A name has a redundant, nonconflicting declaration. 

@ A noncharacter variable has an actual length specified. 

° One of the following names is used as an intrinsic function 
name: 
ALGAMA, ARCOS, ARSIN, CCOS, CDABS, CDCOS, CDEXP, CDLOG, 
CDSIN, CDSORT, COTAN, CQABS, CQCOS, CQEXP, CQLOG, CQSIN, 
CQSQRT, DARCOS, DARSIN, DBLEQ, DCMPLX, DCONJG, DCOTAN, DERFC, 


DERF, DFLOAT, DGAMMA, DIMAG, DLGAMA, DREAL, ERF, ERFC, GAMMA, 
HFIX, IMAG, IQINT, LGAMMA, QABS, QARCOS, QARSIN, QATAN, 
QATAN2, QCMPLX, QCONJG, QCOSH, QCOS, QCOTAN, QDIM, QERFC, 
QERF, QEXP, QEXTD, QEXT, QFLOAT, QIMAG, QINT, QLOG, QLOGIO, 
QMAX1, QMINL, QMOD, QREAL, QSIGN, QSINH, QSIN, QSQRT, QTANH, 
QTAN, SNGLQ. 


° Explicit type specification statements for REAL¥16; explicit 
type specification statements for COMPLEX*16 and COMPLEX *32. 


° nH in other than a FORMAT statement. 


STATEMENTS FLAGGED 

° Invalid statement 
- Asynchronous READ statement 
= Asynchronous WRITE statement 
- AT statement 
_ DEBUG statement 
aa DISPLAY statement 
- EJECT statement 
a INCLUDE statement 


© — NAMELIST statement 
_ READ statement with NAMELIST 
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= TRACE statement 

= WAIT statement 

- WRITE statement with NAMELIST 
e CALL statement 





The ampersand (&) character is used in front of a statement 
number. 


® DATA statement 


The statement appears before the end of the specification 
statements. 


A, Q, Z, or nH constant is used. 
Character constants must correspond to character variables. 
° ENTRY statement 
An argument is embedded between slashes. 
° EQUIVALENCE statement 
One subscript is specified for a multidimensional array. 
® EXTERNAL statement 
A name is preceded by an ampersand (&) character. 
° FORMAT statement 
The Q or Z format codes are used. 
° FUNCTION statement 
An argument is embedded between slashes. ©@ 


A length is specified for a real, logical, integer, or complex 
function. 


* IMPLICIT statement 


A length is specified for a real, logical, integer, or complex 
range. 


The currency symbol ($) is used as an alphabetic character. 
° INTEGER, REAL, COMPLEX, LOGICAL type statements 

Data initialization is specified. 
° OPEN statement 

RECL is used with SEQUENTIAL. 
° PARAMETER statement 


This statement is preceded by an executable statement, a DATA 
statement, or a statement function definition. 


e SUBROUTINE statement 


An argument is embedded between slashes. 
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EXECUTION-TIME CAUTIONS 


The following items are not flagged. However, they are items that 
© are open to misinterpretation and may cause confusion. 


Array declarators in DIMENSION, INTEGER, REAL, COMPLEX, 
DOUBLE PRECISION, CHARACTER, and COMMON statements. 


The value of the lower dimension can exceed the value of the 
upper dimension when it 15 an expression. 


ASSIGN statement 


A variable containing a statement number can be used as 
containing an integer value with unpredictable results. 


Assigned GOTO statement 


The index variable may not contain a statement number that is 
specified in the list of statement numbers. 


Assignment statement 

A character assignment can be made with unpredictable results 
into a string that is also used on the right-hand side of the 
equal sign. 


COMMON statement 


The same COMMON block can contain character variables 
corresponding to noncharacter variables across subroutines. 


The length of the same COMMON block may not be the same across 
subroutines. 


The same COMMON block may be initialized in more than one 
BLOCK DATA. 


DO statement 

The value of the m3 expression can be zero. 

Transfer into an inactive DO loop with unpredictable results. 
ENDFILE statement 

Multifiles can be written. 

FUNCTION, SUBROUTINE, ENTRY statements 

The subroutines must be available. 


The subroutines can be called recursively with unpredictable 
results. 


The number, type, and length of the actual and dummy arguments 
may not match. 


More than one subroutine may have the same name. 

IMPLICIT statement 

The same letter is redefined with different type or length. 
OPEN statement 


The file is repositioned at the beginning. 
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® READ statement on an internal file 


Read records until the end of an array even if the file is one 


record. © 
& READ statement with FORMAT 


Data can be read into the nH field of a FORMAT statement. 
® Subscript 

Subscript value may be outside the dimension bounds. 
» WRITE statement without format on a DIRECT file. 


Spanned records can be written. 
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APPENDIX B. FORTRAN-SUPPLIED FUNCTIONS 





The procedures supplied by VS FORTRAN are called intrinsic 
functions. Figure 20 on page 208 through Figure 26 on page 220 
list: 


e The specific names ("Entry Names") that identify these 
intrinsic functions 


° Their generic names (Cif any) 
° The function definitions 
® The number and type of arguments required 


® The type of the function result 

Use of the generic name simplifies the referencing of the 
intrinsic functions, because the same name may be used for the 
entire range of argument types permitted. The appropriate 
intrinsic function name is chosen depending on the type of 
argument. If more than one argument is required, all arguments 
must be of the same type and precision. 


The intrinsic functions provided by VS FORTRAN are listed in the 


following categories: 
Figure 20 on page 208 
Figure 21 on page 209 
@ Figure 22 on page 211 





The specific names of the functions listed in Figure 20 through 
Figure 26 may all be passed as actual arguments. Of the functions 
listed in those figures, only LEN and INDEX may be passed as 
actual arguments. 


References to intrinsic functions are either resolved from the 

library or inserted inline in the object module. All functions 

listed in Figure 24% are inserted inline. The final column in 

Figure 20 through Figure 23 and in Figure 25 and Figure 26 

nee whether the function is inline or resides in the 
ibrary. 


A list of all the generic names and the valid range of argument 
types and function values is in Figure 27 on page 221. 
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Argument(s) Function Value In-line/ 
Type! and Out-of- 


y > -180.218 


REAL *4 x > 0 
y < 174.673 
x >0) REAL *8 
y 2 -180.218 
y < 174.673 
REAL *16 a REAL *16 
y 2 -180.218 
y < 174.673 
COMPLEX *8 z#0+0i COMPLEX *8 
vy, 2 -180.218 
y; < 175.021 
-—T Syo ST 
COMPLEX *16 ZO + 0) COMPLEX * 16 
y,; 2 -180.218 
y; 175.021 
—T < Vo < TT 
COMPLEX *32 Z#~0O+0i COMPLEX * 32 
y; 2 -180.218 
y; <175.021 
—T7 Sy» ST 
LOG1IO ALOG10 y = logygx REAL *4 x > () REAL *4 
y 2 -78.268 
y < 75.859 
DLOGIO Vy = lowygX x > () REAL *8 
y 2 -78.268 
y S 75.859 
QLOG1I0 y = lovigx REAL *16 x >? REAL *16 
y 2 -78.268 
y < 175.859 


General Gencric 
Function Name Definition 


















ALOG REAL *4 


DLOG 


y= log,.x or O 


y=Inx 











QLOG 


Y= log.x or 
y =Inx 










-_ 


y = PV log. (z) 


See Note 2 










CDLOG 





‘i = PY log, 
See Note 2 


-_ 
— 





COLOG y = PV log. (: 


See Note 2 


~ 
~ 












Common 
logarithm 





~-~ 
~ 


O -~ ~ ~ -~ ~ 
—_ — a ~ —_ 





~ 
~ 





~ 
— 


Exponential 





EXP y=c* REAL *4 x S 174.673 REAL *4 
0<Sysy 
DEXP y= ¢* REAL *8 x S 174.673 REAL *8 
0Sysy 
QEXP y =¢* REAL * 16 x 2 -180.218 REAL *16 
x S 174.673 0<Sysy 
CEXP y > e COMPLEX *8 x, < 174.673 COMPLEX *8 
See Note 3 lag < (27° - a) -¥ <yp Yo SY 


CDEXP COMPLEX *16 





—_ 







~ 
— 

















COMPLEX * 16 
ey EY YoY 


y= ¢ 
See Note 3 









-«~ 
_— 


COMPLEX * 32 
-Y Sy), Yo SY 


COMPLEX *32 





¥ = Gr 
See Note 3 









NOTES: 
T REAL *4, REAL *8, and REAL *16 arguments correspond to REAL, DOUBLE PRECISION and EXTENDED PRECISION arguments, respectively, in VS FORTRAN. 

“pv = principal value. The answer given (¥, + Yo/) is that one whose imaginary part (¥.) lies between -7 and +7. More specifically: -m < y. <7, unless 
xy <0 and X= -0, in which case, Vo = —-T. 

32 isu complex number of the form x, + Xol. 


4+= 16° (1 - 167°) for regular precision routines, 16°3 (1 — 167!*) for double precision routines, and 1699 (1 - 16°78) for extended precision. 





Figure 20. Logarithmic and Exponential Functions 
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General Gencric 
Function Name 


Aresine 


Are cosine 


Arctaungent 


Notes: (Sce end of table.) 


Figure 21 (Part 


Entry 
Name 


QARSIN 


DACOS 


QARCOS 


DADAN 


QATAN 


DALTAN 


QATAN2 


Lt oF 2). 





Definition 


arcsin (x) 


= aresin (x) 


aresin (xX) 


arecos (XN) 


arccos (NX) 


arccos (N) 


dn (NX) 


an (NX) 


aun (XN) 





Argument(s 


Trigonometric Functions 


Appendix B. 


Ixl< ] 


ANN REAL 
dreument 


Any REAL 
adreument 


any REAL 
argument 


any REAL 
drguments 
(except 0), 0) 


any REAL 
arguments 
(except 0,0) 


any REAL 
arguments 
(except 0,0) 


Function Value 
Type! and 
Range? 


Se 
gy y 


REAL *4 (in radians) 
2 eS 


REAL *8 (in radians) 
O<y 


REAL *4 (in radians) 


REAL *8 (in radians) 


REAL *4 (in radians) 
-—T™<y RT 


REAL *8 (in radians) 
—hM<y aT 


RE AL -*16 (in radians) 
-7% < mY <T 
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Function Value In-line/ 


Argument(s) 










General Generic Entry Type! and Out-of- 













Function Name Name Definition No. Range line 
y SIN REAL *4 


(in radians) 


REAL*8 
(in radians) 


REAL *16 Ix! < 2100 REAL *16 
(in radians) -l<y<1 


COMPLEX *8 Ix,1<(2!5 + mr) COMPLEX *8 
(in radians) Ixol < 174.673 -Y Sy}, Yo SY 





— 


y =sin (z) 
See Note 2 


Y 


COMPLEX * 16 Ixy] < (2% > 3) COMPLEX * 16 
(in radians) ixol < 174.673 -Y Sy}, yo SY 


CDSIN y = sin (z) 
See Note 2 


COMPLEX * 32 Ix, < 2100 COMPLEX * 32 
(in radians) Ixol < 174.673 -Y Sy}, voSY 


y = sin (z) 
See Note 2 






















— 


REAL *4 REAL *4 
(in radians) -l<sySl 


Cosine COS COS y = cos (x) 





REAL *8 
(in radians) 


DCOS 


—_ 


REAL *16 Ix| < 2100 REAL *16 
(in radians) -l<y<l 


y = cos (x) 





COMPLEX *8 Ixyl << (2'3 +9) COMPLEX *8 
(in radians) Ixol < 174.673 -Y Sy, yoSY 


y = cos (z) 
See Note 2 





COMPLEX * 16 lx] < (259+ @) COMPLEX * 16 
(in radians) Ixol < 174.673 -Y <y1, yo SY 


CDCOS y = cos (z) 
See Note 2 





y = cos (z) COMPLEX *32 fel <2 COMPLEX * 32 












































See Note 2 (in radians) Ixol < 174.673 ~Y Ly}, yo Sy 
Tangent REAL *4 Ix] << (2'8- 7) 
(in radians) See Note 4 
REAL *8 Ixl < (259+ a) 
(in radians) See Note 4 
REAL *16 ele ote REAL *16 
(in radians) See Note 3 -ysy Sy 
Cotangent COTAN COTAN y = cotan (x) REAL *4 Ix] << (215+ az) O 





(in radians) See Note*4 


REAL *8 Ixl << (259+ mr) 
(in radians) See Note 4 


oN 
—_ 





DCOTAN y = cotan (x) 





















Ix] < 2100 
xl > 1676 
See Note 3 


REAL *16 
-Y Sy S77 


QCOTAN y = cotan (x) REAL *16 


(in radians) 





NOTES: 
! REAL *4, REAL *8, and REAL *16 correspond to REAL, DOUBLE and EXTENDED PRECISION arguments, respectively, in VS FORTRAN. 

2 z is a complex number of the form x, + Xoi. 

x may not be such that one can find a singularity within 8 units of the last digit value of the floating-point representation of x. Singularities are 
+ (2n + 1)z »n=0,1,2,... for tangent, and tna,n=0,1,2,... for cotangent. 





The argument for the cotangent functions may not approach a multiple of 7; the argument for the tangent functions may not approach an odd 
multiple of 7/2. 


y = 163 (1 - 16-6) for regular precision routines, 16% (1 - 16°!*) for double-precision routines and 16° (1 - 16°°8) for extended precision. 


| Figure 21 (Part 2 of 2). Trigonometric Functions 
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Function Value In-line/ 

Argument(s ) ! 

General Generic Entry Definition Type’ and Out-of- 
Function Name Name Type! Range 


Hyperbolic 7 REAL *4 Ix! < 175.366 
sine , 





REAL *8 Ix] < 175.366 

Hyperbolic COSH COSH a ‘+te REAL *4 Ix| < 175.366 
cosine 

DCOSH gk has i ll Ix! < 175.366 


QCOSH REAL *16 |x |S 175.366 REAL *16 
lsyay 

Hyperbolic _ ee , REAL *4 any REAL argument 
tangent TANH ? 2x : 

DTANH _ ee REAL *8 any REAL argument REAL *8 

; eho -lsyz! 
QTANH y= 2 =e. REAL *16 any REAL REAL *16 
e +e" argument —-layal 
NOTES: 


' REAL *4, REAL *8, and REAL *16 arguments correspond to REAL, DOUBLE and EXTENDED PRECISION arguments, respectively, 
in VS FORTRAN 
2 y = 16% (1 — 16°§) for regular precision routines, 16®? (1 — 16~!8) for double-precision routines, and 16° (1 — 16°28) 
© for extended precision. 





| Figure 22. Hyperbolic Functions 
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General 
Function Name 


Absolute 


value 


Error 
function 





Generic 
Definition 


DERFC 
QERFC 


NoTEs: (See end of figure.) 


Figure 23 (Part 1 of 4). 
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Argument(s) 


INTEGER *4 


REAL *16 


COMPLEX *8 


COMPLEX *16 


COMPLEX *32 


REAL *16 


REAL *16 


Range 


any INTEGER 
argument 


any REAL 
argument 


any REAL 
argument 


any REAL 
argument 


any COMPLEX 
argument 
See Note 2 


any COMPLEX 
argument 
See Note 2 


any COMPLEX 
argument 
See Note 2 


any REAL 
argument 


any REAL 
argument 


any REAL 
argu ment 


any REAL 
argument 


any REAL 
argument 


any REAL 
argument 


Miscellaneous Mathematical Functions 


Function Value 
Type! and 
Range? 


INTEGER *4 
0<SyTy 


REAL *16 
0Sy, Sy 


REAL *4 
0O<Sy, SY 
yo= 0 


REAL *16 
O< yy <7 
Yo = 0 


REAL *16 
-lsyS1 


REAL *4 
0SyS<2 


REAL *16 
0<SyS<2 


In-line / 
Out-of- 

















Generic 
Name 


General 
Function 


Gamma und 
loy-gamma 


DGAMMA 


LGAMMA 


ALGAMA 


DLGAMA 


Square root 


DSQRT 


QSQRT 


CDSQRI 





Definition 


ix log. P(x) or 


oo 
y =log, [ ue du 
0 


x > 27°52 and 
x < 57.5744 


REAL *4 


x > 27752 and 
x < 57.5744 


x > 0 and 
x < 4.2913 - 


x > 0 and 
x < 4.2913 - 107% 


COMPLEX *8 any COMPLEX 


argument 


COMPLEX *16 


any COMPLEX 


Function Value 
Type! and 
Range? 


REAL *4 


0.88560 <y <¥ 


REAL *8 
0.88560 < 


REAL *4 


-0.12149 <y <y 


REAL *8 
-0.12149 Sy sy 


REAL *4 
O<y <7! 


REAL *8 
O<y<yl? 


REAL *16 
O<y <y!l/2 


COMPLEX *8 


0 < y; < 1.0987 (y!/2) 


lyol < 1.0987 (y!/2) 


COMPLEX * 16 


In-line/ 
Out-of- 
line 


0 <y,; < 1.0987 (y!/2) 
lyo! < 1.0987 (y!/2) 


argument 


Jz or 


= glf2 
See Note 8 


CQOSORT COMPLEX *32 COMPLEX *32 
0 <y; < 1.0987 (y1/2) 


yo < 1.0987 (y1/2) 


any COMPLEX 
argument 


Nores: (See end of figure.) 





| Figure 23 (Part 2 of 4). Miscellaneous Mathematical Functions 
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Argument(s Function Value In-line/ 
Type and Out-of- 
mange ; i 


COMPLEX *8 any COMPLEX 
argument 


General Gencric Entry 
Function Name Name Definition 





Obtain IMAG AIMAG 
imaginary 
part of a 


complex DIMAG 
argument 


COMPLEX * 16 any COMPLEX 
argument 


QIMAG COMPLEX *32 any COMPLEX REAL *16 


argument 


Obtain CONG CONJG y =X, — Xo! for 


conjugate argument = 


COMPLEX *8 any COMPLEX COMPLEX *8 
argument 
ofa 


complex DCONJG 
argument . 


COMPLEX * 16 any COMPLEX COMPLEX * 16 
argument 

QCONIG COMPLEX *32 any COMPLEX COMPLEX * 32 
argument 


Truncation AINT AINT y =(signof x) *\ 
where v = | Ix! J. 
See Note 6. 


any REAL 
argument 


any REAL 
argument 


any REAL REAL *16 
argument 


Nearest ANINT ANIN’ y = (sign of x) °* v 
whole where v = [ |x + .51! ] 
number ifx 2Oor 

See Note 6. 


any REAL 
argument 


any REAL 
argument 





any REAL INTEGER *4 
argument 


Nearest NINT NINT y = (sign of x) +n 
integer where n = [|x +.5! ] 
ifx 2O0or 


IDNINT n=[lx-.5l] ifx <0. 


: : ss any REAL INTEGER * 4 
See Note 7. 


argument 








Figure 23 (Part 3 of 4). Miscellaneous Mathematical Functions 
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Function Value 













In-line/ 


























































General Generic Entry Type and Out-of- 
Function Name Name Definition No. Type Range Range 
Modulo MOD MOD x INTEGER *4 any INTEGER INTEGER *4 
arithmetic y = remainder ” argument but 
: Xo 0. 
LCi y = x, (mod Xo) See Note 4. 
See Note 3. 
AMOD 2 any REAL 






argument but 
Xo = 0. 
See Note 4. 









DMOD 





REAL *8 
REAL *16 


INTEGER *4 








QMOD 


|e | REAL *16 


E 


























ISIGN 


Transfer 
of sign 


y=Ix,lifx, 20 any INTEGER 


argument 








y=-Ix,lifx, <0 





any REAL 
argument 


















DSIGN 







QSIGN 


DIM IDIM 
DIM 
DDIM 
QDIM 
DPROD y= Ky * x :AL * any REAL 
argument 


REAL *4, REAL *8, and REAL *16 arguments correspond to REAL, DOUBLE and EXTENDED PRECISION arguments, respectively, in VS FORTRAN. 











Positive 
difference 





Y =X, — Xo XH Xo any INTEGER 


y=Oifx, Sx, argument 













any REAL 
argument 












Double 
precision 
product 


NOTES: 
l 


? . . ‘ 
- Floating-point overflow can occur. 


> The expression x, (modulo x4) is defined as x; -]|] — | * X9, where the brackets indicate that an integer is used. The largest integer whose magnitude 
X1. X9 x1 
does not exceed the magnitude of — is used. The sign of the integer is the same as the sign of — 
X9 X9 





+ If Xo = 0, then the modulus function is mathematically undefined. 


wu 


v= 165 (1 - 167°) for regular precision routines, 169 (1 - 16°!*) for double-precision routines and 16° (1 - 16°78) for extended precision routines. 


[ |x! ] is such that v = im! where m is the greatest integer satisfying the relationship |!m|l < |x! and where the resulting v is expressed as a real value. 






~~ 


[!x!] is such that n = Im! where m is the greatest integer satisfying the relationship |m! < Ix]. 


zis a complex number of the form x, + Xgl. 


Figure 23 (Part 4¢ of 4). Miscellaneous Mathematical Functions 
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Argument(s) Function Value 
Type and 


INTEGER *4 


Generic 
Name 


General 
Function 










Entry 
Name? 












Conversion Sec Note 1 INTEGER *4+ 









y = (sign of x)*n 
where n is the largest 
integer <|x| 


any INTEGER 
argument 





to integer 















INT INTEGER *4 


See Note 2 


any REAL 
urgument 




















IDINT any REAL INTEGER *4 


argument 














INTEGER *4 





REAL *16 any REAL 


argument 










INTEGER *4 





See Note | COMPLEX *8 any COMPLEX 


argum ent 
















INTEGER *2 






See Note 3 





y = (sign of x)*n 
where nis the largest 





any REAL 
argument 










integer S |x| 














REAL INTEGER *4 


See Note 4 


Conversion 
to real 





any INTEGER 
argument 







See Note any REAL 


argument 



















REAL *4 





any REAL 
argument 








SNGLQ any REAL 


argument 





















See Note COMPLEX *8 any COMPLEX 


argument 


for z= 5 ig Xol, 


y = REAL (x,) 







COMPLEX * 16 







DREAL any COMPLEX 


argument 






REAL *8 


REAL *16 


REAL *8 


REAL *8 


REAL *8 





QREAL COMPLEX *32 any COMPLEX 


argument 













DFLOAT INTEGER *4 any INTEGER 


argument 





DBLE 





Conversion 
to double 















DBLE any REAL 


argument 





See Note | any REAL 


argument 









REAL *16 any REAL 


argument 





DBLEQ 
















See Note | COMPLEX *8 any COMPLEX 


argument 





forz= x, + Kind, 


y = DBLE (x,) 






Figure 24 (Part 1 of 3). Conversion and Maximum/Minimum Functions 
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General Generic 
Function Name 


Type and 





Conversion 
to extended 
precision 


CMPLX 


Conversion 
to complex 


See Note 3 


CMPLX 


See Note 3 


QFLOAT 


See Note 1 


CMPLX 


See Note 1 


QCMPLX 


See Note 1 


DCMPLX 


See Note 1 


CMPLX 


See Note | 


QCMPLX 


DCMPLX 


Pigure 24 (Part 2 of 3). 


where x, = =RE AL (arg) 
and x» = 0. 


y= x, + Xo! 
where x, = arg 


and Xo, = 0.Q0 


y= kX) + Kot 
for arg = x, + Xol 


y= X, + Kol 
where x, = arg 
and xo = 0. 


y= yt hy 1 where 
x, = REAL (arg]) 
and x» = REAL (arg2) 


y =X, +Xol 
where x, = arg] 
and xX, = arg2 


yY =X, +Xol 
where x, = arg] 
and Xo = arg2 


INTEGER *4 


INTEGER *4 


REAL * 16 


COMPLEX *8 


INTEGER *4 


REAL *16 


Appendix B. 


any INTEGER 
argument 


any REAL 
argument 


any REAL 
argument 


any INTEGER 
argument 


any REAL 
argument 


any REAL 
argument 


any REAL 
argument 
any COMPLEX 
argument 
any REAL 
argument 
any INTEGER 
argument 


any REAL 
argum ent 


any REAL 
argument 


any REAL 
argument 


any REAL 
argument 
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REAL *16 


REAL *16 


REAL *16 


COMPLEX *8 


COMPLEX *8 


COMPLEX *8 


COMPLEX * 32 


COMPLEX *8 


COMPLEX * 16 


COMPLEX *8 


COMPLEX *8 


COMPLEX *8 


COMPLEX * 32 


COMPLEX * 16 
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Generic 
Name 


General 
Function 


Maximum 
value 


Sce Note 3 


See Note 3 


Minimum 
value 


See Note 3 


See Note 3 


NOTES: 


No specific name exists for this case. The generic name must be used for this argument type. 


Entry 


Name 


MAX0 


AMAX]1 


DMAX1 


QMANI 


AMAX0 


MAXI] 


MINO 


AMIN] 


DMIN 1 


QMIN1 


AMINO 


MIN] 


Definition 


¥ = aX (Xj,.-- 


¥ =m Ki< ss 


-X,) 


: Xn) 


INTEGER *4 


REAL *4 


REAL *16 


INTEGER *4 


INTEGER 


REAL *4 


REAL * 16 


INTEGER * 


REAL *4 


*4 


4 


any INTEGER 
arguments 


any REAL 
argumen ts 


any REAL 
arguments 


any REAL 
arguments 


any INTEGER 
arguments 


any REAL 
arguments 


any INTEGER 
arguments 


any REAL 
arguments 


any REAL 
arguments 


any REAL 
arguments 


any INTEGER 
arguments 


any REAL 
arguments 


Function Value 
Type and 
Range 





INTEGER *4 


REAL *8 


REAL *16 


INTEGER *4 


INTEGER *4 


REAL *16 





INTEGER *4 





IFIX is an alternate specific name for this function. 
Specific name must be used to obtain function value of this type. 
FLOAT is an alternate specific name for this function. 


in ~ . . . . . . . 
» All functions in this figure are inline functions. 





Figure 24 (Part 3 of 3). Conversion and Maximum/Minimum Functions 
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General Definition Argument(s Function Value | 1-line/ 


Function 
csc 


Convert ICHAR Position of character Character INTEGER *4 
character See Note 1 | in EBCDIC collating 
to integer sequence 

Character 

SHA CHARACTER * 1] 

Convert ena | corresponding to Integer 
integer to See Note position of argument 
character in EBCDIC collating 

sequence 
Length of Length of Character INTEGER *4 
character character 
item entity 
Index of Location of Character INTEGER *4 
character substring a, 
item in string a, 


Out-of- 





Alphamerically | LGE ly 2 iy Character LOGICAL *4 
greater See Note 1 | See Note 2 
than or equal 


Alphamerically | LGT ly > Uo Character LOGICAL *4 
greater See Note 1 | See Note 2 
than 


Alphamerically | LLE a, Say Character LOGICAL *4 
less than See Note 1 | See Note 
or equal 


Alphamerically | | | ay < ag 


9 Character LOGICAL *4 
less than See Note | | See Note § 
NOTES: 


I This intrinsic function name may not be passed as an actual argument (unless the name has 
been removed from its intrinsic function status). 





9 : : i 
“Comparison is made using the ASCII collating sequence. 


| Figure 25. Character Manipulation Functions 
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Gencral Generic Entry 
Function Name Name 


IAND 


Logical 


Logical OR 


Logical IEOR 
exclusive 


OR 


Logical 
complement 


ISHFT 


operation 


BIEST 


Bit testing 
and setting 


IBCLR 


NOTES: 


Definition 


k = and (1, }) 


k= or (1, j) 


k = not (1) 


k = shift (i, m) 

i is shifted by m where 
form <0, shift is 
right;m > Q, shift is 
left; and m = 0, no 
shift 


| = bitest (i,m) 


tests m-th bit of 
argument 1 


k = bitset (1, m) 
sets m-th bit of 
argumenti to Ll. 


k = bitclear (1, m) 
sets m-th bit of 
argument i to 0. 


Argument(s) 


INTEGER *4 


INTEGER *4 


INTEGER *4 


INTEGER *4 


INTEGER * 


INTEGER * 


INTEGER *4 


INTEGER *4 


any INTEGER 
arguments 


any INTEGER 
arguments 


any INTEGER 
arguments 


any INTEGER 
argument 


Lis any INTEGER 
argument; 
-32<m S32 


iis any INTEGER 
argument; 
0<mSs 3] 


! No generic names for the bit-manipulation functions. All specific names may be passed as actual arguments. 


Function Value 
Type and 
Range 
INTEGER *4 


INTEGER *4 


INTEGER *4 


INTEGER *4 


INTEGER *4 


LOGICAL * 4 


INTEGER *4 


INTEGER *4 


* Inline if second argument is an integer constant; library function needed if second argument is an integer variable or expression. 


Figure 26. 


Bit Manipulation Functions 
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In-line/ 
Out-of- 


Sec 
Note 









































Generic 
Name 





Definition 





: 
Nearest whole number ] 


Arc tangent i 4 | 


Absolute value 


4 


» A 
He 
2 

- 

oo 

y,”) 

* 

(or) 


X 


oi 
Pf 


r 
, 


4 
4 
« 


ANINT 





* a 
Ba 


ATAN 


oO, 
Arc tangent (2 arguments) 2 


— 
een 
cone 
INT 
a 


Paw [see | xx x ay 


ATAN2 


LIE 


CMPLX 


» 


2 
2 


lel fe 


a 


2 X 


us . 


w 


* 
* 
> 


; 
Ps . 
‘ 


ws 





Express as I*4 


, 
4 


4 


VI WV 
no] rm 


r 
4 


X 


sqnr | Sawrewor f+ |x| x] x] x] x] x) 
Pras [tae ip? fp xfxtx}t | | _ 


NOTES: 


1 “X" indicates a permissible mode of argument. 


9 


“Argument” indicates that the type or length of the result is the same as that of the argument(s). 
3 


If more than one argument is permitted, all arguments must be of same type and length. 


Figure 27. Generic Names for Intrinsic Functions 
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Pret | Argument 
Px fx ff 


* ° 9 
Function Value* 


Argument 


ca 


Complex 


Argument 
Argument 
Argument 
Integer + 

Argument 
Argument 
Argument 
Argument 
[e 
Argument 
Argument 
Argument 


Integer 


The specific name DCMPLX must be used to convert an R*8 argument to a C*16 value (or to convert and express two R*8 arguments 
as a C*16 value.) 
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APPENDIX C. IBM AND ANS FORTRAN FEATURES 





Either the old FORTRAN CLANGLVL(66)) or the current FORTRAN 
CLANGLVL(77)) compiler option is provided at the time of 
compilation. The following groups of features are listed in this 
appendix: 
a New ANS FORTRAN 1977 features 

General features 

New statements 

New features in old statements 
e Old IBM extensions now in ANS FORTRAN 1977 
® IBM extensions not in ANS FORTRAN 1977 


6 LANGLVL(66) features not in VS FORTRAN 


NEW ANS FORTRAN 1977 FEATURES 
The following new features of the 1977 American National Stantard 
CANS) FORTRAN Cnot supported by the old IBM OS and DOS FORTRAN 
compilers) are supported in VS FORTRAN. 

GENERAL FEATURES 


° May use asterisk comment indicator in column one. 


° Comment before continuation is allowed anywhere in the 
program unit. Blank card is treated as a comment. 


© External unit identifier may be an integer expression. 





é Direct-access input/output (syntax different from IBM's). 
° Storage-to-storage input/output (Internal File). 
° Specified ignoring of input blanks. 
© Expressions are allowed in output lists. 
° Character data type is allowed. 
= May include character substrings. 
- The collating sequence may be altered. 
e Subroutines without RETURN. 
“ END in subroutine is the same as RETURN. 


e Functions Cand their entry points) may exist without 
arguments. 

° Dummy argument may be defined if actual argument is in common. 

° Array elements are allowed in statement function definitions. 


© Array names without subscripts are allowed in the EQUIVALENCE 


statement. 
e Complex data may be defined through real components. 
e Variables used in adjustable dimensions and lengths may be 


redefined without any effect on size of array. 





° Integer expressions are allowed in array declarators. 
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e Nonunity lower bounds for arrays are allowed. 


8 Nonpositive subscript values are allowed. 





® Named BLOCK DATA subroutines are allowed. 
& Executable statements that cannot be reached are allowed. 


® ANINT, CHAR, DNINT, DPROD, ICHAR, IDNINT, INDEX, LEN, and 
NINT are recognized as FORTRAN-Supplied function names. 


& DARCOS and DARSIN functions have different names: DACOS and 
DASIN. 


% Logical operators .EQV. and .NEQV. are allowed. 


® A number is permitted on nonexecutable statements. 

° Comparison of complex operands with equal and not equal 
relationals is allowed. 

® Exponentiation of complex with complex is allowed. 

6 All specification statements must precede all DATA 
statements. 

6 Negative values for input or output unit identifiers are 
prohibited. 

6 Literal format cannot be used for input. 

® H format cannot be used for input. 

° Use of a slash as a value separator in list-directed input is 
allowed. 

® Character function is allowed. 

© ° Unspecified width is allowed in A format. 





NEW STATEMENTS 
e Block IF, ELSE IF, ELSE, END IF statements 
e CHARACTER type statement 
° CLOSE statement 
° DOUBLE PRECISION type statement 
° INQUIRE statement 
e INTRINSIC statement 
e OPEN statement 
e PARAMETER statement 
e PROGRAM statement 
e SAVE statement 
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NEW FEATURES IN OLD STATEMENTS 


BACKSPACE statement: 

= UNIT, ERR, and IOSTAT may be used. 

COMMON statement: 

= Commas are optional. 

DATA statement: 

= Implied DO statement is allowed. 

= Type conversion 1s allowed. 

a Commas after nonterminal slashes are optional. 
DIMENSION statement: 

va Specification can be negative or zero. 


- Both lower and upper bound can be names of constants or 
expressions. 


DO statement: 
= Loops may be indexed by nonpositive values. 


_ Loops may be indexed by integer, real, or double 
precision values. 


= Backward loops may be used. 

- Zero trip loops may be used. 

= Control variable is defined on completion. 

_ Control variable may be real or double precision. 

—_ Terminal statements are allowed with computed GO TO, 
PAUSE, LOGICAL IF, STOP, or RETURN. They are not allowed 
with block IF. 

- Comma is optional following terminal statement number. 


_ Subscript values can be negative or zero. 


_ Parameters may be any arithmetic expression except 
complex. 


a Parameters may be redefined in loop with no effect on loop 
control. 


_ A block IF statement in the DO range must be entirely 
Within the range of the DO. 


— The range of a DO within a block IF must be entirely 
contained within the block. 


a Transfer may be made into any active loop. 

= DO may be ended by any fall-through statement. 
— Comma may be used before control variable. 

END statement: 

= May be numbered. 

sa Implies STOP or RETURN. 


= Is executable. 
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ENDFILE statement: 
_ UNIT, ERR, and IOSTAT may be used. 
EXTERNAL statement: 





An ampersand (&) character as the first character of a name is 
not permitted for compiler option LANGLVL(77). Any name that 
appears in an EXTERNAL statement is considered as the name of 


a user-supplied subroutine. 


FORMAT statement: 


BN and BZ specify ignoring of input blanks. 
Unlimited parentheses may be used. 


The label ASSIGNED may be the number of a FORMAT 
statement. 


Field width is optional in Aw. 
Explicit nP scale factor may be used. 


Ew.dEe, Gw.dEe, Iw.d, SP, SS, S, Tle,» and TRe field 
descriptors may be used. 


Colon may be used as scan terminator. 


Optional commas may be used with slashes and colons. 


GO TO statement, Assigned: 


List of statement numbers 1s optional. 


Comma outside parentheses is optional. 


GO TO statement, Computed: 


Index may be an integer expression. 


Comma may be outside parentheses. 


IMPLICIT statement: 


More than one may be used in a program unit. 


IMPLICIT may be preceded by ENTRY, FORMAT, or PARAMETER 
statements and must precede all other specification 
statements except PARAMETER statements. 


DOUBLE PRECISION and CHARACTER type statements are 
included. 


PRINT statement: 


FORMAT designator may be a character constant. 


READ statements: 


FORMAT designator may be a character constant. 


UNIT, ERR, and IOSTAT may be used. 


RETURN statement: 


Index may be an integer expression. 


REWIND statement: 


UNIT, ERR, and IOSTAT may be used. 


STOP statement: 


Quoted literal is allowed. 
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me A character constant is permitted. 


8 Auxiliary input and output statements: 





= UNIT and ERR may be used. 
® WRITE statement: 


— May not be used after ENDFILE in sequential input or 
output. 


= FORMAT designator may be a character constant. 


_ UNIT, FMT, REC, and IOSTAT may be used. 


OLD IBM EXTENSIONS NOW IN ANS FORTRAN 1977 
The following items supported as IBM extensions in old IBM OS and 
DOS FORTRAN compilers are now part of the 1977 ANS FORTRAN 
language. These items are also supported in VS FORTRAN. 
e Literals are enclosed in apostrophes. 


6 STOP and PAUSE statements: 


- Decimal digits are supported. 


STOP statement string is accessible. 
ae Quoted literal in PAUSE statement is supported. 
@ T format is accepted as a field descriptor. 


e Computed GO TO index out of range. 





e All combinations of arithmetics across equal sign. 

e Mixed-mode arithmetic. © 
° Mixed-mode relationals. 

e Successive exponentiations. 

e Generalized subscripts. 

° Seven-dimensional arrays. 


° END in READ. 

° ERR in READ and WRITE. 

e Short form of READ and PRINT. 

e Sequential list-directed tnput/Zoutput. 
e Asterisks for undersized output fields. 
e IMPLICIT statement. 

® Array names in DATA statement. 


€ ENTRY statement. 


2 Alternative returns from subroutines. 

e Function and entry names in type statements. 
e Generic facility. 

e Additional processor-supplied functions. 
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IBM EXTENSIONS NOT IN ANS FORTRAN 1977 


The following IBM extensions are supported by old IBM OS and DOS 
FORTRAN compilers but are not part of the 1977 ANS FORTRAN. They 
will continue to be supported in VS FORTRAN as IBM extensions. 


Some of the following features are available only under the 
compiler option described in the next section, "LANGLVL(66) 
Features Not in VS FORTRAN." 


* NAMELIST statement. 


e Double Precision Complex. 
° Z and Q@ format descriptor. 
© G format for integer and logical. 


e ALGAMA, ARCOS, ARSIN, CCOS, CDABS, CDCOS, CDEXP, CDLOG, 
CDSIN, CDSQRT, COTAN, CQABS, CQCOS, CQEXP, CQLOG, CQSIN, 
CQSQ@RT, DARCOS, DARSIN, DBLE@, DCMPLX, DCONJG, DCOTAN, DERFC, 
DERF, DFLOAT, DGAMMA, DIMAG, DLGAMA, DREAL, ERF, ERFC, GAMMA, 
HFIX, IMAG, IQINT, LGAMMA, QABS, QARCOS, QARSIN, QATAN, 
QATAN2, QCMPLX, QCONJG, Q@COSH, QCOS, QCOTAN, QDIM, QERFC, 
QERF, QEXP, QEXTD, QEXT, QFLOAT, QIMAG, QINT, QLOG, QLOG1O, 
QMAX1, QMIN1, QMOD, QREAL, QSIGN, QSINH, QSIN, QSQRT, QTANH, 
QTAN, SNGLQ. 


e CALL DVCHK, CALL DUMP/PDUMP, CALL EXIT, CALL OVERFL. 
® Asynchronous READ, WRITE, and WAIT. 

e Extended Precision for REAL and COMPLEX. 

° Extended debug facility. 


° Hexadecimal constants and Z format are allowed. 

° Free-form source statements. 

° The currency symbol ($) used as alphabetic character. 

° Data initialization in type specification statements. 

° Optional length specification in specification statements 


CINTEGER, REAL, COMPLEX, LOGICAL) and in FUNCTION statements. 


s Mixed mode expressions involving complex and double 
precision. 


e FORMAT identifier may be an array name Cother than character 
type). 

® Continuation line may have anything in columns 1 through 5 
other than "C™ in column 1. 

e RETURN statement is the same as STOP in a main program. 

e Partitioned data sets. 


e Closing of data set on ABEND. 
e STOPn is allowed, where n equals a return code. 


® Initialization with hexadecimal constants. 
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LANGLVL(66) FEATURES NOT IN VS FORTRAN 
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LANGLVL(66) instructs the compiler to compile a program according 
to the 1966 FORTRAN language. Listed here are some of the features 
of LANGLVL(66) that are not in LANGLVL(77). These items are not 
compatible with VS FORTRAN. 


Character constants may be assigned to integer, real, 
complex, or logical in a DATA statement. 


The ampersand (&) is included in the character set. 


The ampersand (&) must be used instead of the asterisk (*) for 
an alternate return. 


A program name can only be specified as a compiler option. 
Arguments are received by value. 
Dummy arguments can be enclosed in slashes. 


DARCOS and DARSIN used as function names are recognized as 
FORTRAN-supplied functions; DACOS and DASIN are recognized as 
user-~supplied function names. 


DEFINE FILE statement. 
DO statement and implied DO in I/0: 
Loops are always executed at least once. 


EQUIVALENCE statement. CAccept a multidimensional array with 
one subscript. ) 


EXTERNAL statement: 


If a FORTRAN-supplied function name appears in an EXTERNAL 
statement preceded by an ampersand (&) it is considered a 
user~supplied function name. If it 1s not preceded by an 
ampersand (&), it is considered a FORTRAN-supplied function 
name except as described below. The following names are 
always considered user-supplied function names if they appear 
in an EXTERNAL statement whether or not preceded by an 
ampersand (&): 


ABS, AIMAG, AINT, AMAX0, AMAX1, AMINO, AMIN1, AMOD, CMPLX, 
CONJG, DABS, DBLE, DBLEQ, DCMPLX, DCONJG, DDIM, DFLOAT, DIM, 
DIMAG, DINT, DMAX1, DMIN1, DMOD, DREAL, DSIGN, FLOAT, HFIX, 
IABS, IDIM, IDINT, IFIX, IMAG, INT, IQINT, ISIGN, MAX, MAXO, 
MAX1, MIN, MINO, MIN1, MOD, QABS, QCMPLX, QCONJG. QDIM, QEXT, 
QEXTD, QFLOAT, QIMAG, QINT, QMAX1, QMIN1, QMOD, QREAL, QSIGN, 
REAL, SIGN, SNGL, SNGLQ@. 


FIND statement. 


Function names: ANINT, CHAR, DPROD, DNINT, ICHAR, IDNINT, 
INDEX, LEN, and NINT are recognized as user-supplied function 
names. 


GENERIC statement. 
GENERIC means that generic names of FORTRAN-Supplied 
functions will be recognized as generic; if GENERIC is not 


specified, the automatic function selection facility will not 
be in effect. 


IBM direct-access READ and WRITE. 


INTRINSIC statement is not recognized as a VS FORTRAN 
statement. 


PUNCH b, list. 
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PPENDIX D. EXTENDED ERROR HANDLING SUBROUTINES 


ERRMON SUBROUTINE 


IBM provides five subroutines for use in extended error handling: 
ERRMON, ERRSAV, ERRSET, ERRSTR, and ERRTRA. These subroutines 
allow access to the option table to alter it dynamically. 


Certain option table entries may be protected against alteration 
when the option table is set up. If a request is made by means of 
CALL ERRSTR or CALL ERRSET to alter such an entry, the request is 
ignored. See Figure 30 on page 233 for those IBM-supplied option 
table entries that cannot be altered. 


Changes made dynamically are in effect for the duration of the 
program that made the change. Only the current copy of the option 
table in main storage is affected; the copy in the FORTRAN library 
remains unchanged. 


The ERRMON subroutine calls the FORTRAN error monitor routine, 
the same routine used by FORTRAN itself when it detects an error. 


Syntax 





CALL ERRMON Cimes,iretcd,ierno [,datal,data2,...]) 


ames 
The name of an array, aligned on a fullword boundary, that 
contains, in EBCDIC characters, the text of the message. The 
number of the error condition should be included as part of 
the text, because the error monitor prints only the text 
passed to it. The first item of the array contains an integer 
whose value is the length of the message. Thus, the first 4 
bytes of the array are not printed. If the message length is 
greater than the length of the buffer, it is printed on two 
or more lines of printed output. 


iretcd 
An integer variable made available to the error monitor for 
setting the following codes: 


0 
The option table or user-exit routine indicates that 
standard correction 1s required. 


The option table indicates that a user exit toa 
corrective routine has been executed. The function is 
to be reevaluated using arguments supplied in the 
parameters: datal,data2,.... 








For input/output type errors, the value l indicates 
that standard correction is not wanted. 


ierno 
The error condition number in the option table. If any number 
specified is not within range of the option table, an error 
message 15 printed. 


datal,data2... 
Variable names in an error-detecting routine for the passing 
of arguments found to be in error. One variable must be 
specified for each argument. Upon return to the 
error-detecting routine, results obtained from corrective 
action are in these variables. Because the content of the 
variables can be altered, the locations in which they are 
placed should be only in the CALL statement to the error 
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monitor; otherwise, the user of the function may have 
literals or variables destroyed. 


Because datal and data2 are the parameters that the error 
monitor passes to a user-written routine to correct the 
detected error, care must be taken to make sure that these 
parameters agree in type and number ina call to ERRMON 
and/or ina call to a user-written corrective routine, if one 
exists. 





ERRMON examines the option table for the appropriate error number 
and its associated entry and takes the actions specified. If a 
user-exit address has been specified, ERRMON transfers control to 
the user-written routine indicated by that address. Thus, the 
user has the option of handling errors in one of two ways: 


® Call ERRMON without supplying a user-written exit routine 
° Call ERRMON and providing a user-written exit routine 
Example: 

CALL ERRMON (CMYMSG,ICODE,315,D1,D2) 
The example states that the message to be printed is contained in 
an array named MYMSG; the field named ICODE is to contain the 
return code; the error condition number to be investigated is 315; 
and arguments to be passed to the user-written routine are 
contained in fields named Dl and D2. 
The error numbers chosen for user subprograms are restricted in 
range. IBM-designated error conditions have reserved error codes 
from 000 to 301. Error codes for installation-designated error 
situations must be assigned in the range 302 to 899. Before you 
use these subroutines, check with your system administrator about 


codes and options you can use. The error code is used by FORTRAN 
to find the proper entry in the option table. 


Error Monitor Routines 
Option table preface 
Option table entries 
Option table default values 
Corrective action after error 


Corrective action after Figure 32 on page 23/7 
mathematical subroutine error 

Corrective action after program Figure 33 on page 242 
interrupt 


Field Default Field | 
Length Value Description 


4 bytes 152 Number of entries in the option table. 


4 bytes 150 Message number of the first table entry. 


















Field 
Contents 


Number of 
entries 


Boundary 
Alignment 


Figure 28. Option Table Freface 
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Message Option Tables 


@ Field Field |Default? Aa 
contents Length Value Field Description 


Number 1 byte 102 Number of times this error condition 

of error should be allowed to occur. When the 

occur value of the error count field (below) 
rences equals this value, job processing is 

terminated. Number may range from 0 to 

to 255. A value of 0 means an unlimited 

number of occurrences. ?® 













Number 






1 byte Number of times the corresponding 
message is to be printed before message 
printing is suppressed. A value of 0 


means no message 1s to be printed. 


messages 
to print 









1 byte The number of times this error has 
occurred. A value of 0 indicates that no 


occurrences have been encountered. 














1 byte 42 
(hex) 


Eight option bits defined as follows 
(the default setting is underscored): 







Bit{|Setting| Explanation 





No control character 
supplied for overflow lines. 
Control character supplied 
to provide single spacing 
for overflow lines. 












Table entry cannot be 
modi fied. > 

Table entry can be 
modified. 










Fewer than 256 errors have 
occurred. 

More than 256 errors have 
occurred. CAdd 256 to error 
count field above to 
determine the number. 











36 


Do not print buffer 
With error message. 
Print buffer contents. 


Reserved. 









Print messages default 
number of times only. 
Unlimited printing 
requested; print for every 
occurrence of error. 


0 
¥ 
0G 
1 
0 
1 
G 
1 
7 0 Do not print traceback map. 
I Print traceback map. 
Tra Reserves 


Indicates where a user corrective 
routine is available. A value other than 
1 specifies the address of the user- 
written routine. 












User 4 bytes i 
exit 


@ Figure 29. Option Table Entry 
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Notes to Figure 29: 


1 


The default values shown apply to all error numbers 
Cincluding additional user entries) unless excepted by a 
footnote. 


Errors 207, 208, 209, and 215 are set as unlimited, and errors 
162, 163, 164, 165, 167, 168, 205, 217, 230, and 240 are set 
to i. 


An unlimited number of errors may cause the FORTRAN job to 
loop. 


Errors 162, 163, 164, 165, 167, 168, 230, and 240 are set to 
Ls 

The entry for errors 162, 163, 164, 165, 167, 168, 205, 230, 
and 240 cannot be modified. 


The entry is set to 0 except for errors 212, 215, 218, 221; 
Zees 2253 e22%s 225, 2e7is 2239, and 236. 


The entry is set to l except for error 205. 
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No. of 





ui 


Unlimited 
Unlimited 
Unlimited 


1 
5 
1 
1 
5 
1 
5 
5 
5 
5 
2 
5 
5 
5 
5 
5 
5 
1 
4 
5 
5 
5 
5 
5 
J 
5 
1 
5 
5 
5 
1 
5 





Figure 30. Option Table Default Values 


Notes to Figure 30: 
1 No corrective action is taken except to continue execution. 

For boundary alignment, the corrective action is part of the 
support for misalignment. For error 209, no user corrective 

action can be specified. 


If a print control character is not supplied, the overflow 
line is not shifted to incorporate the print control 
character. Thus, if the device 1s tape, the data is intact, 
but 1f the device 1s a printer, the first character of the 
overflow line is not printed but is treated instead as the 
print control. Unless the user has planned the overflow, the 
first character would be random and thus the overflow print 
line control can be any of the possible ones. It is suggested 
that when the device 1s a printer, the option be changed to 
provide single spacing. 


It is not considered an error if the END parameter is present 
in a READ statement. No message or traceback 1s printed and 
the error count is not altered. 


filled or not filled at all when the error was detected. Thus, 
the buffer contents could be blank when printed. When an ERR 
parameter is specified in a READ statement, it is honored even 


r 4 For an input/output error, the buffer may have been partially 
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though the error occurrence is greater than the amount 
allowed. 


5 The count field does not necessarily mean that up to 10 
missing DD cards will be detected in a single debugging run, 
since a single WRITE performed ina loop could cause 10 
occurrences of the message for the same missing DD card. 


Message Corrective Action Cross Reference Tables 


Parameters 


Error | Passed Standard User-Supplied 
Code To User Corrective Action Corrective Action 


I=low order part of number for User may alter I. 
input too large. See Note 2. 
Treat format field containing C If compiled FORMAT 
as end of FORMAT statement. statement, put 
hexadecimal equivalent 
carriage control character if 
required by Option Table. 
213 Ignore remainder of I/0 list. See Note l. 
214 A,B,D Input: Ignore remainder of [70 If user correction is 
list. Ignore input/output requested, the remainder 
request if for ASCII tape. of the I/70 list is 
ignored. 
Output: If unformatted write 
initially requested, change 
record format to VS. If 
formatted write initially 
requested, ignore input/output 
request. 


of character tn C. tg 
Substitute zero for the invalid The character placed in 
character. E will be substituted 
for the invalid 
character; input/output 
operations may not be 
performed. See Note 3. 


















Variable format, move 
EBCDIC character into C. 
See Note 3. 











Ignore remainder of I/0 See Note l. 


Input: 
ivst. 








Output: Continue by starting 
new output record. Supply 







Increment FORTRAN sequence See Note l. 
number and read next file. 
A,B,D,F Ignore remainder of I/0 list. See Note l. 


2i19- Ignore remainder of I/0 list. See Note l. 


218 





Substitute zero for the invalid The character placed in 

character. E will be substituted 
for the invalid 
character. See Note 3. 


Figure 31 (Part 1 of 2). Corrective Action after Error 


N 
N 
-_ 
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Parameters ; 
Error | Passed Standard User-Supplied — 
Code To User Corrective Action Corrective Action 


R=0 for input number too small. User may alter R. 





R = 16**63 - 1 for input number 
too large. 


See Note l. 


die Change record number to list See Note l. 
maximum allowed (32000). 


See Note l. 
288 A,B,D Implied wait See Note l. 


©} Figure 31 (Part 2 of 2). Corrective Action after Error 





Parameter Meaning 


Address of return code field CINTEGER*4) 

Address of error number CINTEGER*4) 

Address of invalid format character (See Note 5) 
Address of data set reference number CINTEGER*4) 
Address of invalid character (See Note 5) 
Address of DECB 

Address of record number requested CINTEGER*4) 
Result after conversion CINTEGER*4) 

Result after conversion CREAL*4) 


AHOMNMoOWYS 


Notes to Figure 31: 


Note 1: If the error was not caused during asynchronous 
input/output processing, the user exit-routine cannot perform any 
asynchronous I/40 operation and, in addition, may not perform any 
REWIND, BACKSPACE, or ENDFILE operation. [If the error was caused 
during asynchronous input/output processing, the user cannot 
perform any input/output operation. On return to the Library, the 
remainder of the input/output request will be ignored. 


If error condition 218 Cinput/output error detected) occurs while 
error messages are being written to the object error data set, the 
message is written to the console and the job is terminated. If no 
DD card has been supplied for the object error data set, error 
message IFY219I is written out at the console and the job is 
terminated. 


Note 2: The user exit routine may supply an alternative answer 

for the setting of the result register. The routine should always 

set an INTEGER*4 variable and the FORTRAN library will load 

fullword or halfword depending on the length of the argument 
6 causing the error. 
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Note 3: Alternatively, the user can set the return code to 0, 
thus requesting a standard corrective action. 


Note 4: Code 240 generates a message showing the system or 
program code causing program termination, the address of the STAE 
Control Block, and the contents of the last PSW when abnormal 
termination occurred. Further information appears under message 
code IFY240 in VS FORTRAN System Service Reference Supplement. 


Note 5: 





° If LANGLVL(66), then LOGICAL*®1. 
° If LANGLVL(77), then CHARACTER*®1. 
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FORTRAN 
Reference 
(See Note 1) 
K=1**] 
Y=X**] 


DA=D**!I 


XA=X**Y 
DA=D**DB 
CA=C**] 


CDA=CD+*!I 


Q=QA**) 


Q-QA**QB 


Q=QA**QB 


Y=SQRT (X) 


Y=EXP (X) 
Y=ALOG (X) 


Y=ALOG10 (X) 


Y=COS (X) 
Y=SIN (X) 


Y=SINH (X) 
Y=COSH (X) 
Y=ARSIN (X) 


Y=ARCOS (X) 
Y=TAN (X) 
Y=COTAN (X) 
Y=TAN (X) 


Y=COTAN (X) 


Figure 32 (Part 1 of 4). 


Y=ATAN2 (X,XA) 





Invalid Argument 


Range 


1=0,J<0 
X=0, 1<0 


D=0,1<0 


X=0, YSO 
D=0, DBSO 
C=0+0i1,1<0 


C=0+0i1, 1<0 


QA=0, J <0 


QA=0, QB<0 


QA<0, QB#.0 


logs (QA)*QB> 252 


X<0 
X > 174.673 
X=0 
X<0 
X=0 
X<0 


|X| > (2'8)*q 


X=0. XA=0 
|H| 2 175.366 


[X|> 1 


[X| > (2!8) +m 


X is too close to an 


odd multiple of 1/2 


X is too close toa 
multiple of 7 
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Standard 
Corrective Action 
(See Notes 2 and 3) 





K=0 


Ifl=0, Y=1 
IfI<0, Y=e 
If l=0, Y=1 
If1<0, Y=e 
XA=0 
DA=0 


If 1=0, C=1 +0) 
Ifl<0, C=e +0) 
If l1=0, C=1+0)1 
If l<0, C=e +01 
J<0, Q=e 

J=0, Q=1 
QB<0, Q=e 
QB=0, Q=1 
Q=iQA)*#QB 
Q-* 

Y=|X|? 

Ye 

Y =log |X| 

Y=-e 

Y =logyoIX| 


Y=\/2/2 


Y=0 

Y=(SIGN of X)e 

Y=e 

If X>1.0, ARSIN(X)=2/2 

If X<-1.0, ARSIN(X)=-7/2 
If X>1.0, ARCOS=0 

If X<-1.0, ARCOS=7 

Y=1 










User-supplied 
Corrective Action 
(See Note 4) 


i, J 
X, I 








QA, J 


QA, QB 


QA, QB 


~*~ 


~AK KK 


Corrective Action after Mathematical Subroutine Error 
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Options 

















FORTRAN 
Reference 


(See Note 1) 


Standard 
Corrective Action 
(See Notes 2 and 3) 


User-supplied 
Corrective Action 
(See Note 4) 







Invalid Argument 
Range 


Error 


Code 













Q=2**QA OA> 252 


DA=DSORT (D) 


Qs 
DA=|Dj? 






D<0 










])=e 





DA=DEXP (D) D> 174.673 








D=0 DA=-e 


DA=log |X| 


DA=DLOG (D) 















D=0 
D<0 


DA=-e 
DA=log)9/X| 


DA=,/9 (2° 


DA=DLOG10 (D) 









DA=DSIN (D) [Dj > (2°) *a 


DA=DCOS (D) 







DA=DATAN2 (D,DB) D=0, DB=0 DA=0 






DA=DSINH (D) 
DA=DCOSH (D) 


[D| 2 175.366 DA=(SIGN of X)e 


DA=e 
















DA=DARSIN (D) D|>1 If D> 1.0, DARSIN=7/2 


If D<-1.0, DARSIN=-72/2 










DA=DARCOS (D) If D> 1.0, DARCOS (D)=0 


If D<-1.0, DARCOS (D)=7 













DA=DTAN (D) |X| > (2°) *m DA=1 


DA=DCOTAN (D) 










D is too close to an 
odd multiple of 1/2 


DA=DTAN (D) 














1) is too close toa 
multiple of 7 


DA=DCOTAN (D) 






For error 270, CQA=X, + 1X, 












270 CQA=0 + 0 


J<o 


jJ=0, CQ=1+0.i 
J<0, CQ=e +0.) 


COA, J 






CQ=CQA**) 






For errors 271 through 275, C=X, +1X, 












X!> 174.673 





Z=CEXP (C) 
7=CEXP (C) 


Z=*(COS X,+iSIN X,) 











IX. | > (2!8)*m 









C=0+ 01 


[X12 (2!8)#n 


Z=CLOG (C) 







Z=CSIN (C) 










Z=CCOS (C) Z=COSH(X,) + 0*i 








7% © © 2 © 


Z=SCIN (C) X, > 174.673 Z= «(SIN X,+iCOS X,) 
2 


Z=e (COS X, -iSIN X,) 






Z=CCOS (C) 











Figure 32 (Part 2 of 4). Corrective Action after Mathematical Subroutine Error 
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FORTRAN Standard User-supplied 
Error Reference Invalid Argument Corrective Action Corrective Action 
Code (See Note 1) Range (See Notes 2 and 3) (See Note 4) 








Z=CSIN (C) x, <-174.679 ‘Z=e (SIN X,-iCOS X,) 


Z=CCOS (C) 


Z=CQEXP (CQ) X, > 174.673 Z=*(COS X,+iSIN Xq) 
Z=CQEXP (CQ) [Male 2 Z=e*l+ 0%} 

Z=CQLOG (CQ) CQ=0+ 0i Z=-9+ 0i 

Z=CQSIN (CQ) [X, | = 2100 Z=0+ DSINH (X*)*i 
Z=CQCOS (CQ) Z=DCOSH (X°) + 0*i 
Z=CQSIN (CQ) X, > 174.673 Z=e (SIN X,+iCOS X,) 


Z=CQCOS (CQ) Z=e (COS X,=iSIN X,) 


Z=CQSIN (CQ) Xy< -174.673 2(SIN X, -1iCOS X,) 


b= 
Z=CQCOS (CQ) Z=e (COS X,=iSIN X,) 


} For errors 281 through 285, CD=X, + 1X, 
Z=CDEXP (CD) RK, 174.675 Z=*(COS X,+iSIN Xo) 


Z=CDEXP (CD) [Xo] = (2°°)*a Z=e*l + O*i 
Z=CDLOG (CD) CD=0 + 0i Z=-¢ +0i 


Z=CDSIN (CD) IX |= (2°0) «ar =0 + SINH(X,)*i 


L 
Z=CDCOS (CD) Z=COSH (X.) + 0*1 
Z 


Z=CDSIN (CD) X,> 174.673 =e(SIN X, + iCOS X, ) 


Z=CDCOS (CD) Z= (COS X, -iSIN X,) 
Z=CDSIN (CD) X,<-174.673 


Z=CDCOS (CD) 


QA=QSQRT (Q) 
Y=GAMMA (X) 


Y=ALGAMA (X) 
X > 4.2937*1073 


Figure 32 (Part 3 of 4). Corrective Action after Mathematical Subroutine Error 
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FORTRAN 
Error Reference 
Code (See Note 1) 


QA=QEXP (Q) 
QA=QLOG (Q) 


QA=QLOG 10 (Q) 


QA=QSIN (Q) 
QA=QCOS (Q) 
QA=QATAN2 (Q,QB) 
QA=QSINH (Q) 
QA=QCOSH (Q) 
QA=QARSIN (Q) 


QA=QARCOS (Q) 


QA=QTAN (Q) 
QA=QCOTAN (Q) 
QA=QTAN (Q) 
QA=QCOTAN (Q) 


DA=DGAMMA (D) 


DA=DLGAMA (D) 


Figure 32 (Part 4 of 4). 


Invalid Argument 
Range 


Q> 174.673 


Q=0 
Q<0 


Q=0 
Q<0 


1Q| > 2100 


Q=0, QB=0 
1Q|> 175.366 


IQ|> 1 


iQ| > 9 100 


Q is too close to an 


odd multiple of 7/2 


Q is too close to a 
multiple of 7 


D<2-* or 
D2 57.5774 


D<0O or 
D> 4.2937*107 





Standard User-supplied 
Corrective Action Corrective Action 
(See Notes 2 and 3) (See Note 4) 


QA=s 
QA=-* 

QA =log |X| 
QA=e 

QA =log), |X! 


QA=,/2 /2 


QA=0 

QA=e (SIGN Q)e 

QA =@ 

If Q> 1.0, QARSIN= 7/2 

If Q<-1.0, QARSIN=-1/2 
If Q> 1.0, QARCOS(Q)=0 

If Q<-1.0, QARCOS(Q)=7 


QA=1 


QA=e 





Corrective Action after Mathematical Subroutine Error 
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Notes to Figure 32: 


1 The variable types are as follows: 





Variable Type 


Ladok INTEGER¥4 

Re XAe Y REAL*4 

D,DA,DB REAL*8& 

C,CA COMPLEX*8 

Q,QA,QB REAL*16 

CQ,CQA COMPLEX*32 

LyX*,X* Complex variables to be given the length of the 
functioned argument when they appear. 

CD,CDA COMPLEX*16 


The largest number that can be represented in floating point 
1s indicated by the symbol «. 


The value e= 2.7183 Capproximately). 
The user-supplied answer is obtained by recomputation of the 


function using the value set by the user routine for the 
parameters Listed. 
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Standard 
Corrective 
Action 


Parameters 
Passed to 
User Exit2 


User-Supplied 
Corrective 
Action 






Reason for 
Interrupté 






















For exponent 
overflow, the 
user may alter 
Ds, 


For exponent 
overflow, the result 
register is set to 
the largest 
floating-point 
number. The sign of 
the result register 
is not altered. No 
standard fixup for 
other interrupts. 


Overflow 










Integer overflow 
(Interrupt code 8) 









Exponent overflow 
(Interrupt code C)* 














Underflow The user may 


alter D*°. 


The result register 
is set to zero. 









Exponent underflow 
CInterrupt code D). 


















For 
floating-point 
divide, the 
user may alter 
D>. 











Divide check For floating-point 
divide, where N/) 
and N=), the result 
register is set to 
0. Where N - 0, the 
result register is 
set to the largest 
possible floating 
point number. No 
standard fixup for 
other interrupts. 














Integer divide 
CInterrupt code 9) 






Decimal divide 
CInterrupt code B) 










Floating-point divide 
(Interrupt code F)*% 













No special (See Note®) 
corrective action 
other than 
correcting boundary 


misalignment. 


Operation exception 
(Interrupt code 1) 















Specification 
exception 
CInterrupt code 6) 











Data exception 
CInterrupt code 7) 





Figure 33. Corrective Action after Program Interrupt 


Notes follow. 
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| Notes to Figure 33: 
1 


The variable types and meanings are as follows: 





variabie [tee [veming 


INTEGERX4 The address of return code 
field. 

INTEGER*4 The address of the error 
number. 

REAL*¥16 The result register after the 
interrupt. 


INTEGER*4 The exponent as an integer 
value for the number in D. The 
value in I is not the true 
exponent, but what was left in 
the exponent field of the 
floatina-point number after 
the interrupt. 


Asynchronous program interrupts are described in the ; 
appropriate principles of operations publication, as listed 
in the preface. 










The user exit routine may supply an alternate answer for the 
setting of the result register. This is accomplished by 
replacing the value in D. Although the interrupt may be caused 
by a short, long, or extended floating-point operation, the 
user exit routine need not be concerned with this. The user 
exit routine should always set a REAL*16 variable and the VS 
FORTRAN library will load the correct length data item 

depending on the floating-point operation that caused the 

interrupt. For interrupts other than floating point, the user 

exit routine does not have the ability to change the result 
register and any data placed in D is ignored. 


For floating-point interrupts, the result register is shown 
in the message. For interrupts other than floating point, the 
result register contains zeros. 


The boundary alignment adjustments are informative messages 
and there is nothing to alter before execution continues. 
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| ERRSAV SUBROUTINE 





The ERRSAV subroutine copies an option table entry into an &-byte 
storage area accessible to the FORTRAN programmer. 


Syntax 





CALL ERRSAV Cierno,tabent) 


ierno 
The error number in the option table. Should any number not 


within the range of the option table be used, an error 
message will be printed. 


tabent 
The name of an 8-byte storage area in which the option table 


entry is to be stored. 
Example: 
CALL ERRSAV (€213,ALTERX) 


The example states that error number 213 is to be stored in the 
area named ALTERX. 
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ERRSET SUBROUTINE 


The ERRSET subroutine permits the user to change up to five 
different options. It consists of six parameters. The last four 
parameters are optional, but each omitted parameter must have its 
place noted by a comma or a zero if succeeding parameters are 
specified. (Omitted parameters at the end of the list require no 
place notation.) 





Syntax 





1erno 
The error number in the option table. Should any number not 
Within the range of the option table be used, an error 
message will be printed. (If ierno is specified as 212, there 
is a special relationship between the ierno and irange 
parameters. See the explanation of irange.) 


inoal 
An integer specifying the number of errors permitted before 
each execution is terminated. If inoal 1s specified as 
either zero or a negative number, the specification is 
ignored, and the number-of-errors option is not altered. If 
a value of more than 255 is specified, an unlimited number of 
errors 1S permitted. 


The value of inoal should be set at 2 or greater if transfer 
of control to a user-supplied error routine is desired after 
an error. If this parameter is specified with a value of 1, 
execution is terminated after only one error. 


inomes 
An integer indicating the number of messages to be printed. A 
negative value specified for inomes suppresses all messages; 
a specification of zero indicates that the 


number-of-messages option is not to be altered. If a value 
greater than 255 1s specified, an unlimited number of error 
messages 1s permitted. 


itrace 
An integer whose value may be 0, 1, or 2. A specification of 
0 indicates the option is not to be changed; a specification 
of 1 requests that no traceback be printed after an error. 
(If a value other 1 or 2 is specified, the option remains 
unchanged. } 


iusadr 
Specifies one of the following: 


® The value 1, indicating that the option table is to be 
set to show no user-exit routine (that is, standard 
corrective action is to be used when continuing 
execution). 


e The name of a closed subroutine that is to be executed 
after the occurrence of the error identified by ierno. 
The name must appear in an EXTERNAL statement in the 
source program, and the routine to which control is to be 
passed must be available at link-editing time. 


® The value 0, indicating that the table entry is not to be 


altered. 
irange 
Specifies one of the following: 
° An error number higher than that specified in ierno. 
This number indicates that the options specified for the 
other parameters are to be applied to the entire range of 


error conditions encompassed by ierno and irange. (If 
lrange specifies a number lcwer than ierno, the 
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parameter 1s ignored, unless ierno specifies the number 
aS gic. 





® A print control character if ierno specified 212. The 
value 1 is specified to provide single spacing for an ® 
overflow line. If a value other than 1 is specified, no 
print control is provided. 





The default value 0 is assumed if the parameter is omitted (that 
1S, no print control is provided, and the values specified for all 
parameters apply only to the error condition number in ierno). 





Example Il: 
CALL ERRSET (€310,20,5,0,MYERR,320) 


This example specifies the following: 








8 Error condition 310 Cierno). 
The error condition may occur up to 20 times Cinoal). 
8 The corresponding error message may be printed up to 5 times 


Cinomes). 


e The default for traceback information is to remain in force 
Citrace). 


s The user-written routine MYERR is to be executed after each 
error Ciusadr). 


8 The same options are to apply to all error conditions from 310 
to 320 Cirange). 


Example 2: 
CALL ERRSET €212;10;5.25 1,51) 


This example specifies: 





e Error condition 212. 

e The condition may occur up to 10 times. 

° The corresponding message may be displayed up to 5 times. 

e Traceback information is to be displayed after each error. 

® Standard corrective action is to be executed after an error. 
e Print control is to be employed. 


For illustration purposes, this example explicitly specifies all 
default options except that used in requesting print contrul. 


Example 3: 

CALL ERRSET (€212,0,0,0,0,1) 
This example illustrates an alternative method of specifying 
exactly the same options as the second example. It states that no 


changes are to be made to default settings in requesting print 
control. 
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ERRSTR SUBROUTINE 


ERRTRA SUBROUTINE 





The ERRSTR subroutine stores an entry in the option table. 


Syntax 





CALL ERRSTR Cierno,tabent) 


ierno 
The error number for which the entry is to be stored in the 
option table. Should any number not within the range of the 
option table be used, an error will be printed. 


tabent 
The name of an &-byte storage area containing the table entry 
data. 
Example: 
CALL ERRSTR C213, AL TREX) 


The example states that error number 213, stored in ALTREX, is to 
be restored to the option table. 


The ERRTRA subroutine dynamically requests a traceback and 
continued execution. 


Syntax 
CALL ERRTRA 





The CALL ERRTRA statement has no parameters. 
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SERVICE SUBROUTINES 


Service subroutines provide VS FORTRAN programmers control over 
certain mathematical exceptions and program termination when 
unusual conditions occur. 





DVCHK SUBROUTINE 


The DVCHK subroutine tests for a divide-check exception and 
returns a value indicating the existing condition. 


Syntax 
CALL DVCHK (Ck) 





k 


An integer or real variable in the program unit. 


The values of k returned have the following meanings: 
Value Meaning 


1 The divide-check indicator is on. 
2 The divide-check indicator is off. 


DUMP/PDUMP SUBROUTINE 


The DUMP/PDUMP subroutine dynamically dumps a specified area of 
storage. 


Syntax 





CALL CDUMP|PDUMP] (al,b1,k1,...an,bn,kn) 





a and b 
Variables in the program unit. Each indicates an area of 
storage to be dumped. 


Either a or b can represent the upper or lower limits of the 
storage area. 


Ix 


Specifies the dump format to be used. 


The values that can be specified for k and their meanings are: 


Value Format Requested 


Hexadecimal 
LOGICAL*1 
LOGICAL*4 
INTEGER¥2 
INTEGER*4 
REAL *4 
REAL ¥8& 
COMPLEX*8& 
COMPLEX*16 
CHARACTER 
10 REAL*16 

ii COMPLEX*32 


WONAUDWAE OC 


When a CALL DUMP statement is executed, the area requested is 
dumped onto the system output data set and execution is 
terminated. 


When a CALL PDUMP statement is executed, the area requested is ©} 
dumped onto the system output data set and execution continues. 
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CDUMP/CPDUMP SUBROUTINE 


The CDUMP/CPDUMP subroutine dynamically dumps a specified area of 
© storage containing character data. 


Syntax 






CALL CCDUMP|CPDUMP] Cal,bl,...,an,bn) 


a and b 
Variables in the program unit. Each indicates an area of 
storage to be dumped. 


Either a or b can represent the upper or lower limits of each 
storage area. 


The dump is always produced in character format. 
Note: These must not be a dump format type specified as it was for 
DUMP/PDUMP. 

EXIT SUBROUTINE 


The EXIT subroutine terminates execution of the load module or 
phase and returns control to the operating system. 


Syntax 
CALL EXIT 





CALL EXIT performs a function similar to that of the STOP 
statement, except that no operator message is produced. 


© OPSYS SUBROUTINE (DOS ONLY) 
The OPSYS subroutine has two forms. 
1. CALL OPSYS statement to run multiphase jobs: 
Syntax 





CALL OPSYSC'LOAD', 'phasename’ ) 


LOAD 
The OPSYS parameter specifying this function. 


*phasename' 
Specifies the name of the phase to be loaded. The phase 
must be in the core image library. 


The 'phasename’ must be specified in eight alphameric 
characters. If fewer than eight characters are 
specified, the name should be left-~adjusted within the 
field and padded on the right with blanks. 
Alternatively, the name of the phase may be specified as 
a variable or in an array. 


2. CALL OPSYS statement to: 
© Modify the block size in the unit assignment table. 
* Modify the default BLOCKSIZE. 


® Modify the buffer offset in the unit assignment table for 
® ASCII data sets. 
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Syntax for LANGLVL(66): 


Syntax 









OPSTS L"FILEOPT sis tdekek? 


Syntax for LANGLVL(77): 
Syntax 





OPSTS C'VEILGPT" +i537-k,2) 


FILEOPT 
Required for LANGLVL(66). 


VFILOPT 
Required for LANGLVL(77). 


|~*. 


Specifies the VS FORTRAN logical unit. A system unit or a 
unit that has been used for I/0 cannot be specified. 





i 
Specifies the block length: 
® 18 to 2048 for ASCII 
® 18 to 32767 for EBCDIC 
This length is placed in the UATDBLKS field of the unit 
assignment table. 
K 
Specifies ASCII data sets: 
° A nonzero value indicates an ASCII data set and permits 
the 1 parameter to be specified. 
6 A zero value (Cor parameter omitted) specifies non-ASCII 
data sets. 
1 


Specifies the buffer offset. This value must only be 
specified if k is a nonzero value. Maximum value is 33. It is 
placed in UATDRECL of the unit assignment table. 


i» j> k» and 1 may be integer constants, integer variables, or 
array elements. 


Because the first parameter is a character string, for 
LANGLVL(77) the extra parameter that is the address of the length 
of the first parameter is passed to this module as the second 
parameter. 


Error checking is done to ensure that all values indicated are 
within the proper limits defined in the FORTRAN ASCII 
specifications. 


Invocation of FILEOPT sets on bit 1, byte 0 of the unit block. 
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OVERFL SUBROUTINE 





The OVERFL subroutine tests for exponent overflow or underflow, 
and returns a value indicating the existing condition. 


Syntax 





CALL OVERFL (Ck) 


ix 


An integer variable defined within this program unit. 


The values of k returned have the following meanings: 


Value Meaning 


1 Floating-point overflow occurred last. 
2 No overflow or underflow condition is current. 
3 Floating-point underflow occurred last. 


Note: The values for 1 and 3 indicate the last one to occur; if 
the same statement causes an overflow followed by an underflow the 
value returned is 3 Cunderflow occurred last). 
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APPENDIX E. ERCDIC AND ASCII CODES 





EBCDIC refers to IBM EBCDIC code point ordering for the 256 


character set. 


ISO 8 bit refers to 150 2022 code point ordering for the 256 
character set. 


ASCII 7 bit refers to ANSI X3.4-1977 code point ordering for the 
128 character set. 


ASCII 6 bit refers to ANSI X3.32-1973 code point ordering for the 
64 character set. 


The column used for the lexical intrinsic functions is ASCII 7 
bit. 


The blank character to be used to extend character strings for the 
intrinsic functions LGE, LGT, LLE, and LLT is the ASCII blank CHEX 


203. 

Hote 1: This position does not exist in ANSI X3.4-1977 for 7-bit 
code. 

Note 2: This position does not exist in ANSI X3.32-1373 for 6-bit 
code. 



























Ordinal EECDIC Iso ASCII ASCII 
Fosition Graphic Description 8 bit 7 Bt 6 bit 
for or for for for 

ICHAR control ICHAR ICHAR ICHIAR 


Null 

Start of heading 
Start of text 

End of text 
Select 

Horizontal Tab 
Reguired new line 
Delete 

Graphic Escape 
Superscript 








0 
i 
2 
3 
vA 
5 
6 
7 
8 
9 





Repeat 

Vertical Tab 
Form Feed 
Carriage Return 
Shift out 

Shift in 

Data link escape 
Device control 1 
Device control 2 
Device control 3 


MMMM MND DPD ND PO MMM MN NM PM PD PO 


be Re be he be Re be be 
WON AUR WY Re © 
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Ordinal EBCDIC ASCII 
Position Graphic Description 6 bit 
for or for 

ICHAR Control ICHAR 






Restore 
Enable presentation 
New line 
acknowledgement 
Backspace 
Program-operator 
communication 
Cancel 
End of Medium 
Unit backspace 
Customer use l 
Interchange file 
separator 
Interchange group 
separator 






Interchange record 
separator 

Interchange unit 
separator 

Intermediate trans. 
block 

Digit select 

Start of 
significance 

Field separator 

Word underscore 

Bypass 

Inhibit presentation 

Line feed 

End of trans. block 

Escape 










Reserved 
Reserved 

Set mode, Switch 
Format 

Reserved 

Enquiry 
Acknowledge 

Bell 
Reserved 
Reserved 


Synchronous 
Index 
Presentation position 
Transparent 

Numeric backspace 

End of transmission 
Subscript 
Indent 
Required 
Customer use 3 






Device code 4 
Negative acknowledge 
Reserved 
Substitute 
Space 

Required space 


NM PMP MM PM PM MMM MND PM PND Po MMMM MND PP DP Po NM Ph NM MN NP 
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Ordinal EBCDIC 

Position Graphic Description 
or 
Control 





Cent sign 

Period, decimal point 
Less-than sign 

Left parenthesis 

Plus sign 

Logical OR 


Ampersand 


a 
MO PMO PM DN PO PDD PO PO 


Exclamation point 
Currency symbol 
Asterisk 

Right parenthesis 
Semicolon 

Logical NOT 

Minus sign, Hyphen 
Slash 


Nb lew KD 





1 2 
1 2 
1 2 
1 2 
1 2 
1 2 
1 2 
1 2 

2 


Vertical line 
Comma 

Percent sign 
Underscore 


Greater-than sign 
Question mark 


a 
WON AUDWDHY 
a 

NM RO MNO BO PO PO BS PO PO PO 


Grave accent 
Colon 

Number sign 

At sign 

Prime, Apostrophe 
Equal sign 
Quotation marks 


Lowercase a 
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Ordinal EBCDIC 






HEX Fosition Graphic 
Code for or 
ICHAR Control 





+ 
—— pepe — 
— 

















Description 


Lowercase 
Lowercase 
Lowercase 
Lowercase 
Lowercase 
Lowercase 
Lowercase 
Lowercase 


Lowercase 
Lowercase 
Lowercase 
Lowercase 
Lowercase 


Lowercase 
Lowercase 
Lowercase 
Lowercase 


Tilde 
Lowercase 
Lowercase 
Lowercase 
Lowercase 
Lowercase 
Lowercase 
Lowercase 
Lowercase 










FO hO oO 


SS exuU. 







JOU 8 





<cCetrw 








Appendix E. 


Iso 
8 bit 
for 

ICHAR 

























er 





MMMM MND PA PD Po MM MD PM MN DD PP Po MMMM NN MN PO fo NMM MN MN MM DN PP NNN MND DD MD Ph MMM MND DNDN PP 


p<? fs ft ft ee fee fe fe fe fe 
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255 








256 
















Ordinal 
Position 


EBCDIC 
Graphic 
or 

control 




























Description 


Uppercase 
Uppercase 
Uppercase 
Uppercase 
Uppercase 
Uppercase 
Uppercase 


Uppercase 
Uppercase 


Closing brace 


Uppercase 


Uppercase 
Uppercase 
Uppercase 
Uppercase 
Uppercase 
Uppercase 
Uppercase 
Uppercase 


Uppercase 
Uppercase 
Uppercase 
Uppercase 


Uppercase 
Uppercase 
Uppercase 
Uppercase 
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Opening brace 





Reverse slash 










A 











Hr] OTNMoEOw 











J 


AN VSEZAarA 


N<xKE | CCAM 








































Ordinal 
Position 
for 
ICHAR 


EBCDIC 
Graphic 
or 

Control 








Description 





Long vertical mark 


Eight ones 
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GLOSSARY 


This glossary includes definitions 
developed by the American National 
Standards Institute CANSI) and the 
International Organization for 
Standardization (CISO). 


An asterisk (*)} to the left of a term 
indicates that the entire entry is 
reproduced from the American National 
Dictionary for Information Processing, 
copyright 1977 by the Computer and 
Business Equipment Manufacturers 
Association, copies of which may be 
purchased from the American National 
Standards Institute, 1430 Broadway, New 
York, New York 10018. 


An asterisk (*) to the right of an item 
number indicates an ANSI definition in an 
entry that also includes other 
definitions. 


The symbol "CISO)" at the beginning of a 
definition indicates that it has been 
discussed and agreed upon at meetings of 
the International Organization for 
Standardization Technical Committee 
97/Subcommittee 1 (Data Processing 
Vocabulary), and has also been approved 
by ANSI and included in the American 
National Dictionary for Information 
Processing. 


alphabetic character. A character of the 
eet Ay Bs GrecasZs SEQ Biso "Letter." 


Soares: TEM CAEN LUN eee 


In VS FORTRAN, the currency symbol ($) 
is considered an alphabetic character. 


L—___———-—» END. OF IBM EXTENSION ——————— 


alphameric. Pertaining to a character 
set that contains letters, digits, and 
other characters, such as punctuation 
marks. 


alphameric character set. A character 
set that contains both letters and digits 
and also contains control characters, 
special characters, and the space 
character. 


argument. A parameter passed between a 
calling program and a SUBROUTINE 
subprogram, a FUNCTION subprogram, or a 
statement function. 


arithmetic constant. A constant of type 
integer, real, double precision, or 
complex. 


arithmetic expression. One or more 
arithmetic operators and/or arithmetic 
primaries, the evaluation of which 
produces a numeric value. An arithmetic 
expression can be an unsigned arithmetic 
constant, the name of an arithmetic 
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constant, or a reference to an arithmetic 
variable, array element, or function 
reference, or a combination of such 
primaries formed by using arithmetic 
operators and parentheses. 


arithmetic operator. A symbol that 
directs VS FORTRAN to perform an 
arithmetic operation. The arithmetic 
operators are: 


+ addition 

~ subtraction 

* multiplication 
/ division 

* exponentiation. 


array. An ordered set of data items 
identified by a single name. 


array declarator. The part of a 
statement that describes an array used in 
a program unit. It indicates the name of 
the array, the number of dimensions it 
contains, and the size of each dimension. 
An array declarator may appear ina 
DIMENSION, COMMON, or explicit type 
statement. 


array element. A data item in an array, 
identified by the array name followed by 
a subscript indicating its position in 

the array. 





array name. The name of an ordered set of 
data items that make up an array. 


assignment statement. A statement that 
assigns a value to a variable or array 
element. It is made up of a variable or 
array element, followed by an equal sign 
(=), followed by an expression. The 
variable, array element, or expression 
can be character, logical, or arithmetic. 
When the assignment statement is 
executed, the expression to the right of 
the equal sign replaces the value of the 
variable or array element to the left. 


basic real constant. A string of decimal 
digits containing a decimal point, and 
expressing a real value. 


blank common. An unnamed common block. 


character constant. A string of one or 
more alphameric characters enclosed in 
apostrophes. The delimiting apostrophes 
are not part of the constant. 


character expression. An expression in 
the form of a single character constant, 
variable, array element, substring, 
function reference, or another 
expression enclosed in parentheses. A 
character expression 15 always of type 
character. 





character type. A data type that can 














consist of any alphameric characters; in 
storage, one byte is used for each 
character. 


common block. A storage area that may be 
referred to by a calling program and one 
or more subprograms. 


complex constant. An ordered pair of real 
or integer constants separated by a comma 
and enclosed in parentheses. The first 
real constant of the pair is the real 
part of the complex number; the second is 
the imaginary part. 


complex type. An approximation of the 
value of a complex number, consisting of 
an ordered pair of real data items 
separated by a comma and enclosed in 
parentheses. The first item represents 
the real part of the complex number; the 
second represents the imaginary part. 


connected file. A file that has been 
connected to a unit and defined by a 
FILEDEF command or by job control 
statements. 


constant. An unvarying quantity. The 
four classes of constants specify numbers 
(arithmetic), truth values (logical), 
character data (character), and 
hexadecimal data. 


control statement. Any of the statements 
used to alter the normal sequential 
execution of FORTRAN statements, or to 
terminate the execution of a FORTRAN 
program. FORTRAN control statements are 
any of the forms of the GO TO, IF, and DO 
statements, or the PAUSE, CONTINUE, and 
STOP statements. 


data. (1)* €IS0) A representation of 
facts or instructions ina form suitable 
for communication, interpretation, or 
processing by human or automatic means. 
(2) In FORTRAN, data includes constants, 
variables, arrays, and character 
substrings. 


data item. A constant, variable, array 
element, or character substring. 


data set. The major unit of data storage 
and retrieval consisting of data 
collected in one of several prescribed 
arrangements and described by control 
information to which the system has 
access. 


data set reference number. A constant or 
variable in an input or output statement 
that identifies a data set to be 
processed. 


data type. The properties and internal 
representation that characterize data 
and functions. The basic types are 
integer, real, complex, logical, double 
precision, and character. 


* digit. (ISO) A graphic character that 
represents an integer. For example, one 
of the characters 0 to 9. 


DO loop. A range of statements executed 
repetitively by a DO statement. See also 
"range of a DO." 


double precision. The standard name for 
real data of storage length 8. 


DO variable. A variable, specified ina 
DO statement, that is initialized or 
incremented prior to each execution of 
the statement or statements within a DO 
range. It is used to control the number 
of times the statements within the range 
are executed. See also “range of a DO." 


dummy argument. A variable within a 
subprogram or statement function 
definition with which actual arguments 
from the calling program or function 
reference are positionally associated. 
Dummy arguments are defined ina 
SUBROUTINE or FUNCTION statement, or ina 
statement function definition. 


executable program. A program that can be 
executed as a self-contained procedure. 
It consists of a main program and, 
optionally, one or more subprograms or 
non-FORTRAN-defined external procedures, 
or both. 


executable statement. A statement that 
causes an action to be taken by the 
program; for example, to calculate, to 
test conditions, or to alter the flow of 
control. 


existing file. A file that has been 
defined by a FILEDEF command or by job 
control statements. 


expression. A notation that represents a 
value: a constant or a reference 
appearing alone, or combinations of 
constants and/or references with 
operators. An expression can be 
arithmetic, character, logical, or 
relational. 


external file. A set of related external 
records treated as a unit; for example, 
in stock control, an external file would 
consist of a set of invoices. 


external function. A function defined 


outside the program unit that refers to 
ee ee 


external procedure. A SUBROUTINE or 
FUNCTION subprogram written in FORTRAN. 


file. A set of records. If the file is 
located in internal storage, it is an 
internal file; if it is on an 
input/output device, it is an external 
file. 


file definition statement. A statement 
that describes the characteristics of a 
file to a user program. For example, the 
OS/VS DD statement or DOS/VSE ASSGN 
statement for batch processing, or the 
FILEDEF command for CMS processing. 
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file reference. A reference within a 
program to a file. It 15 specified by a 
unit identifier. 


formatted record. (1) A record, 
described in a FORMAT statement, that is 
transmitted, when necessary with data 
conversion, between intrzrnal storage and 
internal storage or to an external 
record. (2) A record transmitted with 
list-directed READ or WRITE statements 
and an EXTERNAL statement. 


FORTRAN-Supplied procedure. See 
"intrinsic function." 


function reference. A source program 
reference to an intrinsic function, to an 
external function, or to a statement 
function. 


function subprogram. A subprogram 
invoked through a function reference, and 
headed by a FUNCTION statement. It 
returns a value to the calling program 
unit at the point of reference. 


ere TE CAT ENOL UN CS 


hexadecimal constant. A constant that 
is made up of the character Z followed 
by two or more hexadecimal digits. 


es ENT OF IBM EXTENSION ——————— 


hierarchy of operations. The relative 
order used to evaluate expressions 
containing arithmetic, logical, or 
character operations. 


implied DO. An indexing specification 
Csimilar to a DO statement, but without 
specifying the word DO) witha list of 
data elements, rather than a set of 
statements, as its range. In a DATA 
statement the list can contain integer 
constants or expressions containing 
integer constants. In input/output 
statements the list can contain integer, 
real, or double precision arithmetic 
expressions. 


integer constant. A string of decimal 
digits containing no decimal point and 
expressing a whole number. 


integer expression. An arithmetic 
expression whose values are of integer 


type. 


integer type. An arithmetic data type 
capable of expressing the value of an 
integer. It can have a positive, 
negative, or zero value. It must not 
include a decimal point. 


internal file. A set of related internal 
records treated as a unit. 


intrinsic function. A function, supplied 
by VS FORTRAN, that performs mathematical 
or character operations. 

*¥ I/O. Pertaining to either input or 
output, or both. 
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I/O list. A list of variables in an input 
or output statement specifying which data 
15 to be read or which data is to be 
written. An output list may also contain 
a constant, an expression involving 
operators or function references,» or an 
expression enclosed in parentheses. 
labeled common. See "named common." 
length specification. A source language 
specification of the number of bytes to 
be occupied by a variable or an array 
element. 


letter. A symbol representing a unit of 
the alphabet. 


list-directed. An input/output 
specification that uses a data list 
instead of a FORMAT specification. 


logical constant. A constant that can 
have one of two values: true or false. 


logical expression. A combination of 
logical primaries and logical operators. 
A logical expression can have one of two 
values: true or false. 


logical operator. Any of the set of 
operators .NOT. (negation), .AND. 
(connection: both), or .OR. Cinclusion: 
either or both), .EQV. Cequal), .NEQV. 
(not equal). 


logical primary. A primary that can have 
the value true or false. See also 
"orimary.™ 


logical type. A data type that can have 
the value true or false for VS FORTRAN. 
See also "data type." 


looping. Repetitive execution of the 
same statement or statements. Usually 
controlled by a DO statement. 


main program. A program unit, required 
for execution, that can call other 
program units but cannot be called by 
them. 


name. A string of from one through six 
alphameric characters, the first of which 
must be alphabetic. Used to identify a 
constant, a variable, an array, a 
function, a subroutine, or a common 
block. 


named common. A separate common block 
consisting of variables, arrays, and 
array declarators, and given a name. 


nested DO. A DO statement whose range is 
entirely contained within the range of 
another DO statement. 


nonexecutable statement. A statement 
that describes the characteristics of the 
program unit, of data, of editing 
information, or of statement functions, 
but does not cause an action to be taken 
by the program. 


























nonexisting file. A file that has not 
been defined by a FILEDEF command or by 
job control statements. 


* numeric character. 
digit. 


CI1S0) Synonym for 


numeric constant. A constant that 
expresses an integer, real, or complex 
number. 


preconnected file. A unit or file that 
was defined at installation time. 
However, a preconnected file dees not 
exist for a program if the file is not 
defined by a FILEDEF command or by job 
control statements. 


predefined specification. The implied 
type and length specification of a data 
item, based on the initial character of 
its name in the absence of any 
specification to the contrary. The 
initial characters I-N type data items as 
integer; the initial characters A-H, 0-Z, 
and $ type data items as real. No other 
data types are predefined. For VS 
FORTRAN, the length for both types is 4 
bytes. 


primary. An irreducible unit of data; a 
Single constant, variable, array 
element, function reference, or 
expression enclosed in parentheses. 


procedure. A sequenced set of statements 
that may be used at one or more points in 
one or more computer programs, and that 
usually 15 given one or more input 
parameters and returns one or more output 
parameters. A procedure consists of 
subroutines, function subprograms, and 
intrinsic functions. 


procedure subprogram. A function or 
subroutine subprogram. 


program unit. A sequence of statements 
constituting a main program or 
subprogram. 


range of a DO. Those statements that 
physically follow a DO statement, up to 
and including the statement specified by 
the DO statement as being the last to be 
executed; also called a "DO loop." 


real constant. A string of decimal digits 
that expresses a real number. A real 
constant must contain either a decimal 
point or a decimal exponent and may 
contain both. 


real type. An arithmetic data type, 
capable of approximating the value of a 
real number. It can have a positive, 
negative, or zero value. 


record. A collection of related items of 
data treated as a unit. 


relational expression. An expression 
that consists of an arithmetic 
expression, followed by a relational 
operator, followed by another arithmetic 





expression or a character expression, 
followed by a relational operator, 
followed by another character 
expression. The result is a value that 1s 
true or false. 


relational operator. Any of the set of 
operators: 


AB. greater than 

sGEs greater than or equal to 
oi Fi less than 

Le. less than or equal to 
eR. equal to 

JNE. not equal to 


scale factor. A specification in a FORMAT 
statement that changes the location of 
the decimal point ina real number Cand, 
on input, if there is no exponent, the 
magnitude of the number). 


specification statement. One of the set 
of statements that provides the compiler 
With information about the data used in 
the source program. In addition, the 
statement supplies the information 
required to allocate data storage. 


specification subprogram. A subprogram 
headed by a BLOCK DATA statement and used 
to initialize variables in named common 
blocks. 


statement. The basic unit of a FORTRAN 
program, that specifies an action to be 
performed, or the nature and 
characteristics of the data to be 
processed, or information about the 
program itself. Statements fall into two 
broad classes: executable and 
nonexecutable. 


Statement function. A name, followed by a 
list of dummy arguments, that is equated 
to an arithmetic, logical, or character 
expression. In the remainder of the 
program the name can be used as a 
substitute for the expression. 


statement function definition. A 
statement that defines a statement 
function. Its form is a name, followed by 
a list of dummy arguments, followed by an 
equal sign (=), followed by an 
arithmetic, logical, or character 
expression. 


statement function reference. A 
reference in an arithmetic, logical, or 
character expression to the name of a 
previously defined statement function. 


statement label. 
number." 


See "statement 


statemant number. A number of from one 
through five decimal digits that is used 
to identify a statement. Statement 
numbers can be used to transfer control, 
to define the range of a DO, or to refer 
to a FORMAT statement. 


subprogram. A program unit that is 
invoked by another program unit in the 
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same program. In FORTRAN, a subprogram 
has a FUNCTION, SUBROUTINE, or BLOCK DATA 
statement as its first statement. 


subroutine subprogram. A subprogram 
whose first statement is a SUBROUTINE 
statement. It optionally returns one or 
more parameters to the calling program 
unit. 


* subscript. (1) CISO) A symbol that is 
associated with the name of a set to 
identify a particular subset or element. 


(2) A subscript quantity or set of 
subscript quantities, enclosed in 
parentheses and used with an array name 
to identify a particular array element. 


subscript quantity. A component of a 
subscript: an integer constant, an 
integer variable, or an expression 
evaluated as an integer constant. 


ee I EA ENO ee 


In VS FORTRAN, a subscript quantity may 
also be a real constant, variable, or 
expression. 


naan EMD OF 154 EXTENSI Oh 


type declaration. The explicit 
specification of the type of a constant, 
variable, array, or function by use of an 
explicit type specification statement. 


unformatted record. A record that is 
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transmitted unchanged between internal 
storage and an external record. 


unit. A means of referring to a file in 
order to use input/output statements. A 
unit can be connected or not connected to 
a file. If connected, it refers to a 
file. The connection is symmetric: that 
is, 1f a unit 15 connected to a file, the 
file 1s connected to the unit. 


unit identifier. The number that 
specifies an external unit. 


1. An integer expression whose value 
must be zero or positive. For VS 
FORTRAN, this integer value of length 
4 must correspond to a DD name, a 
FILEDEF name, or an ASSGN name. 


2. An asterisk (*) that corresponds on 
input to FTO5F001 and on output to 
FTO6FOO01. 


3. The name of a character array, 
character array element, or 
character substring for an internal 
fi Le. 


variable. (1) * A quantity that can 
assume any of a given set of values. 


(2) A data item, identified by a name, 
that is not a named constant, array, or 
array element, and that can assume 
different values at different times 
during program execution. 




















Special Characters 


(period) 7 
(ellipsis) vii 


+ (plus sign) 7 
$ (€currency symbol) 7 
* (Casterisk) 7 
WRITE statement 198 
- (minus sign or hyphen) 6, 7 
4/ (slash) 7 


(comma) 7 

) (parentheses) 7 
Ceolon? 7 

] (brackets) vii 
(apostrophe) 7 

Cequal sign) 7 
Cguotation mark) 5, 7 


[a | 


A format code 104% 
ACCESS= 
INQUIRE by file name 129 
INQUIRE by unit number 132 
OPEN statement 137 
actual argument 22 
in a function subprogram 116 
in a subroutine subprogram 176 
in an ENTRY statement 83 
alphabetic character 7 
See also letter 
definition 258 
alphabetic primary 
See primary 
alphameric character set 7 
definition 258 
alphameric, definition 258 
alternate return specifier 84 
alternative paths of execution 120 
ANS FORTRAN features 222-228 
ANSI definitions 258 
apostrophe 7 
argument 
actual 83, 176 
definition 258 
dummy 83, 177 
arithmetic assignment statement 47 
conversion rules (complex) 49 
conversion rules Cinteger or 
real) 48 
valid statements 51-52 
arithmetic constant 
See also digit 
complex 14 
definition 258 
integer ll 
primary 26 
real 12 
arithmetic expression 26 
definition 258 
rules for constructing 27 
type and length of (complex) 31 
type and length of Cinteter) 29 
type and length of Creal) 30 


it =m ee ASL 


use of parentheses in 28 
arithmetic IF statement 120 
arithmetic operation 27 

addition 26, 27 

division 26, 27 

evaluation of functions 27 

exponentiation 26, 27 

first operand, complex 28 

first operand, integer 28 

first operand, real 28 

multiplication 26, 27 

subtraction 26, 27 

unary 26 
arithmetic operator 26 

definition 258 

operations involving 37 
array 150 

actual argument 21 

declarator 21 

declarator, definition 258 

definition 258 

dimension bounds 21 

DIMENSION statement 72 

dimensions of 72 

dummy argument 22 

element 20 

element, definition 258 

element, invalid 21 

element, valid 21 

name 

READ statement 150 
WRITE statement 185 

name, definition 258 

size and type declaration 21, 22 

subscripts) 20 
ASCII codes 252-257 
assign a name to a constant 141 
aSSIgnN a name to a main program 144 
assign a number to avariable 46 
ASSIGN statement 46 
assigned GO TO statement 118 
assignment statement 47 

arithmetic 47 

ASSIGN statement 46 

character 47 

definition 258 

logical 
associate actual with dummy argument 
asterisk 7, 198 

READ statement 153 
asynchronous 

READ statement 146 

WRITE statement 182 
AT statement 53 

in debug packet 68, 69 


BACKSPACE statement 54 
invalid statements 54 
valid statements 54 

basic real constant 12 
definition 258 

begin debug packet 53 

blank 7 
common 63 


Index 


58 
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common, definition 63, 258 
format code 108 
FORMAT statement 108 
INQUIRE by file name 130 
INQUIRE by unit number 132 
named common 

BLANK= 
INQUIRE by file name 130 
INQUIRE by unit number 132 
OPEN statement 138 

BLOCK DATA statement 56 

block data subprogram 43 

block IF statement 120 
ELSE 122 
ELSE IF i2z2 
END IF 121 

BN format code 108 

bypass statements 65 

BZ format code 108 


Le | 


CALL statement 58 
CDUMP/CPDUMP 249 
DUMP/PDUMP 248 


DVCHK 248 
ERRMON 229 
ERRSAV 244 
ERRSET 245 
ERRSTR 247 
ERRTRA 247 
EXIT 249 

OPSYS 299 
OVERFL 252 


carrier control 93 

H format code 105 

T format code 106 
CDUMP/CPDUMP subroutine 249 
change options 245 
character array element 

READ statement 149 

WRITE statement 184 
character array name 

READ statement 150 

WRITE statement 185 
character assignment statement 47 
character constant 15 

definition 15, 258 

READ statement 149 

transmission 105 

valid 16 

WRITE statement 184% 
character data 

dump 249 

transmission 104 
character expression 33 

definition 258 

READ statement 150 

use of parentheses in 33 

WRITE statement 185 
character operator 33 

operations involving 37 
character skipping 106 
character substring 23 

reference 23 

variable 23 
character type 83, 125 

definition 258 
CHARACTER type statement 86 
character variable 

storage length 18 

substring 23 
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CLOSE statement 59 
examples 60 
colon 7 
format code 108, 109 
comma 7 
comments 
fixed-form 4, 61 
free-form 5, 61 
common block 56 
definition 259 
COMMON statement 62 
compiler-directed statement 44 
EJECT 77 
INCLUDE 127 
compiler, executing on 1 
complex constant 14 
definition 14, 259 
invalid 15 
valid 14 
complex data requirements 93 
complex type 86, 125 
definition 259 
COMPLEX type statement 86 
complex variable 
Storage length 18 
computed GO TO statement 119 
COND= 
WAIT statement 179 
connect file to unit 137 
connected file 129 
definition 259 
formatted READ—direct access 151 
formatted READ—sequential 
access 154 
formatted WRITE—sequential 
access 189 
READ with list-directed I/0 164 
READ with NAMELIST 165 
unformatted READ—direct access 157 
unformatted READ—sequential 
access 159 
unformatted WRITE—direct access 192 
WRITE with list-directed I/O 199 
WRITE with NAMELIST 201 
constant 10 
arithmetic 10 
assign a name to 141 
character 15 
complex 14 
definition 259 
hexadecimal 16 
Hollerith 16 
integer Ill 
logical 15 
real 12 
continuation line 
fixed-form 4 
free-form 6 
continue a DO loop’ 65 
CONTINUE statement 65 
continued line 6 
free-form 6 
control statement 41 
assigned GO TO 118 
CALL 58 
computed GO TO 119 
CONTINUE 65 
definition 259 
DO 74 
END statement 78 
GO TO 118 
iF 120 
PAUSE 142 
RETURN 167 
Ss0r ts 




















unconditional GO TO 119 
conversion rules 48 
corrective action 

after error 234% 

after mathematical subroutine 

error 237-241 

after program interrupt 243 
create a file 137 
create a preconnected file 137 
currency symbol 7 

IMPLICIT statement 125 


[> | 


D format code 9/7 
data 10 
definition 259 
item, definition 259 
transfer 106 
type, definition 259 
data set 
reference number, definition 259 
DATA statement 42, 66 
character data in 66 
implied DO in 75 
debug 68 
DEBUG statement 42, 68 
AT statement 53, 69 
DISPLAY statement 69, 73 
END DEBUG statement 69, 79 
examples 70 
TRACE OFF statement 69, 178 
TRACE ON statement 69, 178 
decimal point in format codes 94 
declaration of type 19 
default options 234% 
define values of 
array elements 66, 86 
arrays 66, 8&6 
substrings 66 
variables 66, 86 
definitions 
digit 7 
definition 259 
dimension bound 
lower 21, 22 
DIMENSION statement 72 
explicit statement 87 
upper 21, 22 
DIMENSION statement 72 
explicit statement 87 
DIMENSION statement 72 
direct access 
files 138 
input/output 132 
INQUIRE statement 129, 131 
READ statement 149, 156 
WRITE statement 184, 191 
DIRECT= 
INQUIRE by file name 129 
INQUIRE by unit number 131 
disconnect an external file 59 
display data in NAMELIST format 73 
DISPLAY statement 73 
in debug packet 69 
divide-check exception test 248 
DO list 66 
DO loop 69, 74 
See also range of a DO 
definition 259 
DO statement 74 
DO variable 








definition 259 
implied in DATA statement 75 
implied in input/output statement 
double precision 18 
constant 14 
data editing 97 
definition 259 
storage length 18 
type 86, 125 
DOUBLE PRECISION type statement 86 
DP 
assign 50 
extend 50 
float 50 
dummy argument 22 
definition 259 
in a function subprogram 116 
in a subroutine subprogram 177 
in an ENTRY statement 83 
dummy procedure name 114 
dump an area of storage 248, 249 
DUMP/PDUMP subroutine 248 
DVCHK subroutine 248 


Le | 


E format code 97 
EBCDIC codes 252-257 
editing 
double precision data 97 
integer data 96 
real data 97, 98 
EJECT statement 77 
ELSE IF statement 122 
ELSE statement 122 
END DEBUG statement 79 
in debug packet 69 
END IF statement 121 
end page 93 
end program 78 
END statement 78 
in a function subprogram 78 
in a subroutine subprogram 78 
end subprogram 78 
END=, READ statement 154 
ENDFILE statement 80 
invalid 80 
valid 8&0 
ENTRY statement 82 
actual arguments in 83 
valid 83 
equal sign 7 
EQUIVALENCE statement 85 
valid 85 
ERR= 
BACKSPACE statement 54 
CLOSE statement 59 
ENDFILE statement 80 
INQUIRE by file name 128 
INQUIRE by unit number 131 
OPEN statement 137 
READ statement 150 
REWIND statement 169 
WRITE statement 185 
ERRMON subroutine 229 
error detected 131 
error handling subroutines 229-251 
error monitor routine 229 
error, corrective action after 234 
ERRSAV subroutine 244 
ERRSET subroutine 245 
ERRSTR subroutine 247 


Index 


75 
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ERRTRA subroutine 247 
evaluate actual argument 58 
examples of numeric format codes’ 101 
executable program 8 
definition 3, 259 
executable statement 18 
definition 3, 259 
execute a set of statements 74 
execution-time 
cautions 205 
Library 1 
EXIST= 
INQUIRE by file name 129 
INQUIRE by unit number 131 
existence of unit 131 
existing file 
definition 259 
INQUIRE statement 128 
OPEN statement 137 
EXIT subroutine 249 
explicit type statement 
CHARACTER type 86 
COMPLEX type 86 
DOUBLE PRECISION type 86 
INTEGER type 86 
LOGICAL type 86 
REAL type 86 
valid 89 
exponent testing 251 
expression 25 
arithmetic 26 
character 33 
definition 259 
evaluation of 25 
examples 26 
logical 35, 37s 38 
relational 34 
type of primary in 26 
extensions, IBM, documentation of viii 
external 138 
file 138 
definition 259 
file, sequential 80 
function name 82 
function, definition 259 
I/O unit connected to 138 
I/O unit not connected to 138 
procedure, definition 3, 259 
init i129 
EXTERNAL statement 90 
actual argument 90 
valid 90 


F format code 96 

file 
connected to a unit 129 
definition 259 
definition statement 

definition 259 

reference, definition 260 

FILE= 
INQUIRE by file name 128 
OPEN statement 137 

FILESPT 250 

first character of record 93 

fix 50 

fixed-form source statement 
comments) 4, 61 
continuation line 4 
example of 5 
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identification 5 
initial line 4 
number 4, 174 


flagger, source language 203-204 
float 50 
FMT = 





READ statement 149 
WRITE statement 184 
FORM= 
INQUIRE by file name 129 
INQUIRE by unit number 132 
OPEN statement 138 
format 
identifier 184% 
identifier, READ 149 
notation 
format codes 
begin data transmission (T) 106 
blanks, interpretation of 108 
character constant transmission 
CH)? 105 
character data transmission (A) 104 
character skipping (X) 106 
colon 108, 109 
double precision data editing (Q) 97 
format specification reading 109 
general rules 93 
group format specification 107 
hexadecimal data transmission 
CZ) ‘T0h 
integer data editing (I) 96 
list-directed 110 
logical variable transmission 
(CL) 104 
numeric 101 
pilus character control (5S, SP, 
S53 ie? 





real data 96, 97 

real data editing 98 

scale factor specification (P) 99 
slash 108 


format control 93 
FORMAT statement 91 

A code 104 

BN code 108 

BZ code 108 

colon code 108, 109 


Dcode 9/7 
E code 9/7 
examples 101 
F code 96 


format specification reading 199 
forms of 35 

G code 98 

general rules for conversion 93 
group format specification 107 


H code 105 
I code 96 
L code 104% 


list-directed formatting 110 
numeric code 101 


P code 99 
Q@ code 97 
S$ code i107 


slash code 108 
SP code 107 
$S code 107 


T code 106 
X code 106 
Z.code 161 
formatted 
input/output 


INQUIRE statement 129, 131 
PRINT statement 143 
READ statement 





direct access 149 
sequential access 153 
record 93 
definition 260 
INQUIRE statement 129 
OPEN statement 138 
WRITE statement 
direct access) 184 
sequential access 188 
FORMATTED= 
INQUIRE by file name 129 
INQUIRE by unit number 131 
forms of a FORMAT statement 95 
FORTRAN-sSupplied function 206-221 
FORTRAN-Supplied procedure 9 
See also intrinsic function 
keywords 9 
free-form source statement 
comments’ 5, 61 
continuation line 6 
continued line 6 
example of 6 
initial line 5 
maximum length 6 
minus sign 6 
statement number 5, 174 
function 
reference 25, 172 
reference, definition 260 
FUNCTION statement 114 
function subprogram 43 
actual arguments'7 116 
definition 260 
dummy arguments) 116 
END statement 78 
ENTRY statement 82 
RETURN statement 167 
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G format code 98 
generic names’) 134 
glossary 258-262 
GO TO statement 118 
assigned 118 
computed 119 
unconditional 119 
group format 
nesting 94 
specification 107 
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H format code 105 
hexadecimal 
constant 16, 17 
constant, definition 260 
data transmission 101 
hierarchy of operations 
arithmetic 27 
arithmetic operators 37 
character operators 37 
definition 260 
Hollerith constant 16 
definition 16 
valid 16 


[| 


I format code 96 
1/70 
definition 260 
list omitted from READ or WRITE 94 
list-directed READ statement 163 
list-directed WRITE 198 
list, definition 260 
IBM extensions, documentation of viii 
IBM FORTRAN features 222-228 
ID= 
READ statement 146 
WAIT statement 179 
WRITE statement 182 
identification, fixed-form 5 
identi fy 
function subprogram 114 
statements 174 
user-supplied subprogram 90 
EF Block izi 
IF statement 120 
arithmetic 120 
block 120 
logical 123 
IF-level 120 
IMPLICIT type statement 125 
implied DO 
definition 260 
in DATA statement 75 
in PRINT statement 75 
in READ statement 75 
in WRITE statement 75 
INCLUDE statement 127 
industry standards iii 
information about file 128 
INIT 
DEBUG statement 68 
initial line 4, 5 
fixed-form 4 
free-form 5 
input data, NAMELIST statement 135 
input/output statement 42 
BACKSPACE 54 


CLOSE 59 
ENDFILE 6&0 
FORMAT 91 


implied DO 75 
INQUIRE 128 
OPEN 137 
PRINT 143 
READ 145 
REWIND 169 
WAIT 179 
WRITE 181 
input/output unit 138 
connected to external file 138 
not connected to external file 138 
PRINT statement 75 
READ statement 75 
WRITE statement 75 
INQUIRE statement 128 
by file name 128 
by unit number 130 
insert statements 127 
integer constant lil 
definition 11, 260 
invalid 11 
subscripts and substrings 85 
valid 11 
integer data editing 96 
integer expression 26 
definition 260 
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subscripts and substrings 85 
integer type 8&6, 125 
definition 260 
INTEGER type statement 86 
integer variable 
READ statement 149 
storage length 18 
WRITE statement 184 
internal file 195 
definition 260 
READ statement 160 
WRITE statement 195 
intrinsic function 133, 206-221 
definition 3, 260 
INTRINSIC statement 133 
invalid VS FORTRAN programs li 
IOSTAT= 
BACKSPACE statement 54 
CLOSE statement 59 
ENDFILE statement 8&0 
INQUIRE by file name 128 
INQUIRE by unit number 131 
OPEN statement 138 
READ statement 150 
REWIND statement 169 
WRITE statement 185 
ISO definitions 258 
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keywords 9 


L format code 104 
labeled common 
See named common 
LANGLVL(66) features 228 
LANGLVL(77) features 222 
language syntax 4 
leading blanks 94 
length specification 125 
definition 260 
letter 7 
definition 260 
library 1 
list-directed 
definition 260 
formatting 110 
I/O 163, 198 
PRINT statement 143 
READ statement 163 
WRITE statement 198 
literal data 93 
example 103 
load module execution termination 249 
logical assignment statement 47 
logical constant 15 
definition 15, 260 
logical expression 
definition 260 
invalid 37 
order of computations in 37 
use of parentheses in 38 
valid 36 
logical IF statement 123 
logical operation 40 
type and length of the result 40 
logical operator 35 
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AND 36 
definition 260 
EQV 36 : 
examples 36 
invalid 36 
NEQV 36 
NOT 36 
OR 36 
valid 36 
logical primary 
See primary 
logical type 86, 125 
LOGICAL type statement 86 
primary, definition 260 
type, definition 260 
logical variable 
storage length 18 
transmission 104 
looping 69 
definition 260 
lower dimension bound 21 
DIMENSION statement 72 
explicit statement 87 
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main program 

assign a name to 144 

definition 3, 269 

PROGRAM statement 144 

statement CPROGRAM) 42 
mathematical subroutine errors 237-241 
maximum 








record size 93 | 
statement length, free-form 6 

minus sign 7 

modi fy 


block size 249 
buffer offset 249 
multiphase job running 249 
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name 7 
array 62, 72 
block of data 56 
CALL statement 82 
constant 94 
definition 7, 260 
elements of a program 7 
file 128, 129 
function reference 82 
generic 134% 
specific 134 


wnie 131 
variable 62 
NAME= 


INQUIRE by file name 129 

INQUIRE by unit number 131 
named common 63 

blank common 63 

definition 63, 260 
NAMED= 

INQUIRE by file name 129 

INQUIRE by unit number 131 
NAMELIST 

input data 135 

output data 136 

READ statement 165 

















WRITE statement 290] 
names tn READ and WRITE statements 135 
nasted DO 74 

definition 260 
nesting of group formats 94 
new file 37 
new paga 933 
NEXTREC= 

INQUIRE by file name 130 

INQUIRE by unit number 132 
nonexecutable statement 

definition 3, 269 
nonexisting file 

definition 261 

OPEN statement 140 
null L230, 132 
NUM= 

WAIT statement 179 
number 

fixed-form 174 

free-form 174 

last eecord 130, i132 

statement 128, 174 
NUMBER= 

INQUIRE by file name 129 

INQUIRE by unit number 132 
numeric 

constant 10 

definition 26] 

data format codes 94 

format coda 101 
numeric character 

See arithmetic constant 
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object-time dimansions 22, 62 
old fiie 1.37 
OPEN statement 137 
OPENED= 
INQUIRE by file name 129 
INQUIRE by unit number 131 
OPSYS subroutine 249 
option 
default 234, 246 
in DEBUG statement 68 
option table 
default values 234 
entry 232 
order of 44 
computation 37 
Statements 44 
output data, NAMELIST statement 136 
OVERFL subroutine 251 
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P format code 99 

page control 93 

PARAMETER statement 141 

PAUSE statement 142 

period 7 

Plus character control 107 

Plus sign 7 

position an external file 169 

preconnected file 
definition Ss 266i 
formatted READ—direct access 151 
formatted READ-——sequential 





access 154 
formatted WRITE—sequential 
access 189 
READ with Llist-directed I/0 164 
READ with NAMNELIST 165 
unformatted READ—direct access 157 
unformatted READ—sequential 
access 159 
unformatted WRITE—direct access 
WRITE with list-directed I70 199 
WRITE with NAMELIST 201 
predefined specification 19 
definition 261 
preserving a minus sitgn 
free-form 6 
primary 26 
definition 261 
logical 35 
PRINT statement 143 
implied DO in 75 
procedure 
BLOCK DATA 43 
definition 3, 26l 
dummy 82, 84, 114 
subprogram 43 
definition 261 
program interrupt 243 
PROGRAM statement 42, 144 
program unit 
definition 3, 261 
order of statements in 44 


Q format code 97 
QP extend 50 
QP float 50 
quotation mark 7 


range of a DO 
derinivtcion 26] 
range of an impliad DO 75 
READ statement 145 
asynchronous 146 
formatted with direct access 149 
formatted with sequential access 153 
forms of 145 
implied DO in 75 
unformatted with direct access 156 
unformatted with sequential 
access 158 
with internal files 160 
with List-directed I70 i163 
with NAMELIST 165 
reading format specifications 109 
real assign 50 
real constant 12 
dafinition 12, 261 
invalid 13 
valid 13 
real data 
editing 937, 98 
transmission 96 
real data of length 8 
Sea double precision 
real type 86, 125 
definition 261 
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REAL type statement 86 
real variable, storage length 18 
REAL*8 
See double precision 
REC= 
READ statement 150 
WRITE statement 185 
RECL= 
INQUIRE by file name 130 
INQUIRE by unit number 132 
OPEN statement 138 
record $91 
definition 261 
length 130, 132, 138 
number of last 1390, 132 
relational expression 34 
definition 261 


invalid 35 
length of 34 
valid 35 


relational operator 34 
definition 261 
equal to 34 
greater than 34 
greater than or equal to 34 
less than 34 
less than or equal to 34 
not equal to 3% 
replace value of expression 47 
repositiona file 54 
request traceback 247 
required order of statements 44 
retain definition status 171 
return control to calling program 167 
RETURN statement 167 
ina function subprogram 167 
in a subroutine subprogram 167 
REWIND statement 169 
rules for data conversion 93 
run multiphase jobs 249 
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S format code 107 
save option table entry 244 
SAVE statement 171 
scale factor 
definition 261 
specification 939 
scratch a file 137 
sequential access 
input/output 132 
INQUIRE statement 129, 131 
READ statement 153, 158 
WRITE statement 188, 193 
SEQUENTIAL= 
INQUIRE by file name 129 
INQUIRE by unit number 131 
service subroutines 248 
share storage 62, 85 
skip a line 93 
skipping characters) 106 
Slash 7 
slash format code 108 
source language flagger 203-204 
source language statement 
fixed-form 4 
free-form 5, 6 
source statement characters 6 
digit 7 
letter 7 
special characters 7 
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SP format 
special c 
parentheses 7 


specific 
specifica 
subpro 


code 19 
haracters 


names 13 
tion 
gram 


definition 
specification statement 
CHARACTER type 


COMMON 


62 


COMPLEX type 8 
tion, 261 


defini 
DINENS 


ION 72 


7 


mA 


261 


&6 


6 


DOUBLE PRECISION type 
EQUIVALENCE 85 
explicit type 


EXTERH 
IMPLIC 


AL 90 
IT type 


INTEGER type 8 


INTRIN 
LOGICA 
NAMELTI 


SiG boo 
L type 8 
Si 235 


PARAMETER 141 


REAL t 

SAVE 
SS format 
start 


ype 8&6 
sy a | 
code 10 


anew page 77 


displa 
statement 
defini 
descri 


fixed-form number 


y 178 
tion 261 


86 


125 


6 
6 


7 


ptions 41-202 


free-form number 


function definition, 
function reference; 


174% 
174% 


function statement 17 
on, definition 


functi 
label, 
number 
number 
number 
number 
READ gs 
WRITE 
statement 
statem 
STATUS= 
CLOSE 
OPEN s 
stop disp 
stop prog 


definiti 
9, 46 


on 


261 


» definition 26 
» fixed-form 4 


» free-form 


tatement 
statement 
function 
ent 172 


statement 
tatement 

lay 178 

ram 78 


STOP statement 17 
store entry in option table 


1 


1 


5 


> 
49 
184 


ao 
LF 


SUBCHK 
DEBUG statement 68 
subprogram 
BLOCK DATA statement 
aefinition 3s 2céli 
ENTRY statement 82 
FUNCTION statement 43 
RETURN statement 167 
SAVE statement 171 


43 


8&6 


2 
261 


1 


43, 


247 


56 


y LL 


statement function statement 
SUBROUTINE statemant 
SUBROUTINE statement 
subroutine subprogram 43 
actual arguments 


defini 


tion 262 


dummy arguments 
END statement 


ENTRY 


naming 


statement 
G3 


78 


RETURN statement 


subscript 


20 


176 
176 
ve 
&2 
167 


43, 
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definition 261 
definition 
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172 

















definition 262 

im DATA statement 66 

GuUantityv, deftnition 262 
substring 23 

expression 23 

in DATA statement 66 
SUBTRACE 

DEBUG statement 68 
symbolic name 

See name 


syntax 4 


T format code 106 
terminate 
execution 175 
program 78 
the last debug packet 79 
terminate execution of Load module 
test 
exponents 251 
for divide-check exception 248 
values 74 
TRACE 
DEBUG statement 68 
TRACE OFF statement 178 
in debug packet 69 
TRACE ON statement 178 
in debug packet 69 
traceback request 247 
transfer control 
to statement number 118 
to subroutine subprogram 58 
transmission 
character constants 105 
character data 1904 
hexadecimal data 101 
logicel variables 1904 
type declaration 
by EXPLICIT type statement 20 
by [IMPLICIT statement 19 
declaration of an array 21 
definition 262 
predefined 19 
type specification 125 


unary minus 27 
unary plus 27 
unconditional GO TO statement 119 
unformatted 
input/output 
INQUIRE statement 129, 131 
OPEN statement 138 
READ statement 
direct access 156 
sequential access 1538 
record 
definition 262 
INQUIRE statement 129 
OPEN statement 138 
WRITE statement 
direct access 191 
sequential access 193 
UNFORMATTED= 
INQUIRE by file name 129 


INQUIRE by unit number 1131 
unit 
connected 131 
connected to external file 138 
DEBUG statemant 68 
definition 262 
identifier, definition 262 
INQUIRE statement 131 
not connected to external file 
number 131, 137 
OPEN statement 137 
UNIT= 
BACKSPACE statement 54 
CLOSE statement 59 
ENDFILE statement 89 
INQUIRE by unit number 131 
OPEN statement 137 
READ statement 146 
REWIND statement 169 
WAIT statement 179 
WRITE statement 182 
unknovun file 137 
upper dimension bound 21, 22 
DINENSION statement 72 
explicit statement 87 


valid VS FORTRAN programs 1 
variable 17 

character <5 

dafinition 262 

names, invalid 18 

names, valid 17 

types and lengths of 18 
VEILOPT 250 
VS FORTRAN statements 41-202 
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WATT statement 179 

write an end-of-file record 89 

WRITE statement 181 
asynchronous 182 


_ 
Al 
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formatted with direct access 184 


forms of 181 

impiied DO in 75 

unformatted with direct access 
unformatted with sequential 
access 193 

with internal files 195 

with list-directed I70 198 

with NAMELIST 201 


X format code 106 


2 format code 101 
zero 130, 132 
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